tidy column length on examples

Author: jfisher-usgs

R/AddPoints.R

@@ -130,7 +130,7 @@
 #'           quantile.breaks = TRUE, add = FALSE)
 #'
 #' z <- as.factor(rep(c("dog", "cat", "ant", "pig", "bat"),
-#'                length.out = n))
+#'                    length.out = n))
 #' bg <- GetColors(nlevels(z), scheme = "bright", alpha = 0.8)
 #' AddPoints(x, z = z, bg = bg, add = FALSE)
 #'

R/FindOptimalSubset.R

@@ -113,8 +113,7 @@
 #' }
 #' \dontrun{
 #' out <- FindOptimalSubset(n, k, Fitness, numbers, run = 10,
-#'                          monitor = GA::gaislMonitor,
-#'                          seed = seed)
+#'                          monitor = GA::gaislMonitor, seed = seed)
 #' plot(out[["ga_output"]])
 #' summary(out[["ga_output"]])
 #' print(out[["solution"]])

R/GetRegionOfInterest.R

@@ -54,8 +54,10 @@
 #' r <- sqrt(stats::runif(n, 0.25^2, 0.50^2))
 #' x <- sp::SpatialPoints(cbind(0.5 + r * cos(theta), 0.5 + r * sin(theta)),
 #'                        proj4string = sp::CRS("+init=epsg:32610"))
-#' sp::plot(GetRegionOfInterest(x, alpha = 0.1, width = 0.05), col = "green")
-#' sp::plot(GetRegionOfInterest(x, alpha = 0.1), col = "yellow", add = TRUE)
+#' sp::plot(GetRegionOfInterest(x, alpha = 0.1, width = 0.05),
+#'          col = "green")
+#' sp::plot(GetRegionOfInterest(x, alpha = 0.1),
+#'          col = "yellow", add = TRUE)
 #' sp::plot(x, add = TRUE)
 #' }
 #'

R/Grid2Polygons.R

@@ -123,8 +123,8 @@
 #' m <- m[nrow(m):1, ncol(m):1]
 #' x <- seq(from = 2667405, length.out = ncol(m), by = 10)
 #' y <- seq(from = 6478705, length.out = nrow(m), by = 10)
-#' r <- raster::raster(m, xmn = min(x), xmx = max(x), ymn = min(y), ymx = max(y),
-#'                     crs = "+init=epsg:27200")
+#' r <- raster::raster(m, xmn = min(x), xmx = max(x), ymn = min(y),
+#'                     ymx = max(y), crs = "+init=epsg:27200")
 #' plys <- Grid2Polygons(r, level = TRUE)
 #' cols <- GetColors(length(plys), scheme = "DEM screen")
 #' sp::plot(plys, col = cols, border = "#515151")

R/PlotCrossSection.R

@@ -80,16 +80,20 @@
 #' m <- m[nrow(m):1, ncol(m):1]
 #' x <- seq(from = 2667405, length.out = ncol(m), by = 10)
 #' y <- seq(from = 6478705, length.out = nrow(m), by = 10)
-#' r1 <- raster::raster(m, xmn = min(x), xmx = max(x), ymn = min(y), ymx = max(y),
-#'                      crs = "+init=epsg:27200")
+#' r1 <- raster::raster(m, xmn = min(x), xmx = max(x), ymn = min(y),
+#'                      ymx = max(y), crs = "+init=epsg:27200")
 #' r2 <- min(r1[]) - r1 / 10
 #' r3 <- r1 - r2
 #' rs <- raster::stack(r1, r2, r3)
 #' names(rs) <- c("r1", "r2", "r3")
-#' xy <- rbind(c(2667508, 6479501), c(2667803, 6479214), c(2667508, 6478749))
-#' transect <- sp::SpatialLines(list(sp::Lines(list(sp::Line(xy)), ID = "Transect")),
+#' xy <- rbind(c(2667508, 6479501),
+#'             c(2667803, 6479214),
+#'             c(2667508, 6478749))
+#' transect <- sp::Lines(list(sp::Line(xy)), ID = "Transect")
+#' transect <- sp::SpatialLines(list(transect),
 #'                              proj4string = raster::crs(rs))
-#' xy <- rbind(c(2667705, 6478897), c(2667430, 6479178))
+#' xy <- rbind(c(2667705, 6478897),
+#'             c(2667430, 6479178))
 #' p <- sp::SpatialPoints(xy, proj4string = raster::crs(rs))
 #' d <-  data.frame("label" = c("Peak", "Random"))
 #' features <- sp::SpatialPointsDataFrame(p, d, match.ID = TRUE)
@@ -98,10 +102,13 @@
 #' PlotMap(r1, bg.image = bg.image,
 #'         pal = GetColors(scheme = "DEM screen", alpha = 0.8),
 #'         scale.loc = "top", arrow.loc = "topright",
-#'         contour.lines = list("col" = "#1F1F1FA6"), "useRaster" = TRUE)
+#'         contour.lines = list("col" = "#1F1F1FA6"),
+#'         useRaster = TRUE)
 #' lines(transect)
-#' raster::text(as(transect, "SpatialPoints"), labels = c("A", "BEND", "A'"),
-#'              halo = TRUE, cex = 0.7, pos = c(3, 4, 1), offset = 0.1, font = 4)
+#' raster::text(as(transect, "SpatialPoints"),
+#'              labels = c("A", "BEND", "A'"),
+#'              halo = TRUE, cex = 0.7, pos = c(3, 4, 1),
+#'              offset = 0.1, font = 4)
 #' points(features, pch = 19)
 #' raster::text(features, labels = features@data$label, halo = TRUE,
 #'              cex = 0.7, pos = 4, offset = 0.5, font = 4)
@@ -110,16 +117,18 @@
 #' asp <- 5
 #' unit <- "METERS"
 #' explanation <- "Vertical thickness between layers, in meters."
-#' PlotCrossSection(transect, rs, geo.lays = c("r1", "r2"), val.lays = "r3",
-#'                  ylab = "Elevation", asp = asp, unit = unit,
-#'                  explanation = explanation, features = features,
-#'                  max.feature.dist = 100, bg.col = "#E1E1E1",
-#'                  bend.label = "BEND IN\nSECTION", scale.loc = NULL)
+#' PlotCrossSection(transect, rs, geo.lays = c("r1", "r2"),
+#'                  val.lays = "r3", ylab = "Elevation", asp = asp,
+#'                  unit = unit, explanation = explanation,
+#'                  features = features, max.feature.dist = 100,
+#'                  bg.col = "#E1E1E1", bend.label = "BEND IN\nSECTION",
+#'                  scale.loc = NULL)
 #' AddScaleBar(unit = unit, vert.exag = asp, inset = 0.05)
 #'
-#' val <- PlotCrossSection(transect, rs, geo.lays = c("r1", "r2"), val.lays = "r3",
-#'                         ylab = "Elevation", asp = 5, unit = "METERS",
-#'                         explanation = explanation, file = "Rplots.png")
+#' val <- PlotCrossSection(transect, rs, geo.lays = c("r1", "r2"),
+#'                         val.lays = "r3", ylab = "Elevation", asp = 5,
+#'                         unit = "METERS", explanation = explanation,
+#'                         file = "Rplots.png")
 #' print(val)
 #'
 #' graphics.off()

R/PlotGraph.R

@@ -105,10 +105,12 @@
 #'           scientific = FALSE, conversion.factor = 3.28)
 #'
 #' y <- data.frame(lapply(1:3, function(i) sample(n, replace = TRUE)))
-#' PlotGraph(x, y, ylab = "Random number", pch = 1, seq.date.by = "days",
-#'           scientific = TRUE)
+#' PlotGraph(x, y, ylab = "Random number", pch = 1,
+#'           seq.date.by = "days", scientific = TRUE)
 #'
-#' y <- sapply(1:3, function(i) sample((1:100) + i * 100, n, replace = TRUE))
+#' y <- sapply(1:3, function(i) {
+#'   sample((1:100) + i * 100, n, replace = TRUE)
+#' })
 #' m <- cbind(as.numeric(x), y)
 #' col <- GetColors(3, scheme = "bright")
 #' PlotGraph(m, xlab = "Number", ylab = "Random number", type = "b",

R/PlotMap.R

@@ -151,7 +151,8 @@
 #' r[51:100] <- 2L
 #' r[3:6, 1:5] <- 8L
 #' r <- raster::ratify(r)
-#' rat <- cbind(raster::levels(r)[[1]], land.cover = c("Pine", "Oak", "Meadow"))
+#' rat <- cbind(raster::levels(r)[[1]],
+#'              land.cover = c("Pine", "Oak", "Meadow"))
 #' levels(r) <- rat
 #' PlotMap(r)
 #'
@@ -160,23 +161,26 @@
 #' sp::proj4string(meuse.grid) <- sp::CRS("+init=epsg:28992")
 #' sp::gridded(meuse.grid) <- TRUE
 #' meuse.grid <- raster::raster(meuse.grid, layer = "soil")
-#' model <- gstat::gstat(id = "zinc", formula = zinc~1, locations = ~x+y, data = meuse)
+#' model <- gstat::gstat(id = "zinc", formula = zinc~1,
+#'                       locations = ~x+y, data = meuse)
 #' r <- raster::interpolate(meuse.grid, model)
 #' r <- raster::mask(r, meuse.grid)
 #' Pal <- function(n) GetColors(n, stops=c(0.3, 0.9))
 #' breaks <- seq(0, 2000, by = 200)
 #' credit <- paste("Data collected in a flood plain of the river Meuse,",
 #'                 "near the village of Stein (Netherlands),",
-#'                 "\nand iterpolated on a grid with 40-meter by 40-meter spacing",
+#'                 "\nand iterpolated on a grid with 40m by 40m spacing",
 #'                 "using inverse distance weighting.")
-#' PlotMap(r, breaks = breaks, pal = Pal, dms.tick = TRUE, bg.lines = TRUE,
-#'         contour.lines = list("col" = "#1F1F1F"), credit = credit,
-#'         draw.key = FALSE, simplify = 0)
-#' AddScaleBar(unit = c("KILOMETER", "MILES"), conv.fact = c(0.001, 0.000621371),
+#' PlotMap(r, breaks = breaks, pal = Pal, dms.tick = TRUE,
+#'         bg.lines = TRUE, contour.lines = list("col" = "#1F1F1F"),
+#'         credit = credit, draw.key = FALSE, simplify = 0)
+#' AddScaleBar(unit = c("KILOMETER", "MILES"),
+#'             conv.fact = c(0.001, 0.000621371),
 #'             loc = "bottomright", inset = c(0.1, 0.05))
 #' AddGradientLegend(breaks, Pal, at = breaks,
-#'                   title = "Topsoil zinc\nconcentration\n(ppm)", loc = "topleft",
-#'                   inset = c(0.05, 0.1), strip.dim = c(2, 20))
+#'                   title = "Topsoil zinc\nconcentration\n(ppm)",
+#'                   loc = "topleft", inset = c(0.05, 0.1),
+#'                   strip.dim = c(2, 20))
 #'
 #' m <- datasets::volcano
 #' m <- m[nrow(m):1, ncol(m):1]

R/PrintPackageHelp.R

@@ -42,9 +42,8 @@
 #'     "    toc_float: true",
 #'     "---",
 #'     sep = "\n", file = "test-help.Rmd")
-#' PrintPackageHelp("inlmisc", file = "test-help.Rmd",
-#'                  toc = TRUE, title_to_name = TRUE,
-#'                  notrun = FALSE)
+#' PrintPackageHelp("inlmisc", file = "test-help.Rmd", toc = TRUE,
+#'                  title_to_name = TRUE, notrun = FALSE)
 #' rmarkdown::render("test-help.Rmd")
 #' url <- file.path("file:/", getwd(), "test-help.html")
 #' utils::browseURL(url)

R/PrintTable.R

@@ -71,12 +71,12 @@
 #' digits <- c(0, 1, 1, 1, 1)
 #' title <- "Measurements of sepal length and width and petal
 #'           length and width for three species of Iris flower."
-#' headnotes <- "\\textbf{Species of Iris}: includes setosa, versicolor, and virginica.
+#' headnotes <- "\\textbf{Iris Species}: setosa, versicolor, and virginica.
 #'               \\textbf{Abbreviations}: cm, centimeters"
 #' levels(d[[1]]) <- sprintf("%s\\footnotemark[%d]", levels(d[[1]]), 1:3)
-#' footnotes <- paste(sprintf("\\footnotemark[%d] Common name is %s iris.", 1:3,
-#'                            c("Wild Flag", "Blue Flag", "Virginia")),
-#'                    collapse = "\\\\")
+#' footnotes <- sprintf("\\footnotemark[%d] Common name is %s iris.",
+#'                      1:3, c("Wild Flag", "Blue Flag", "Virginia"))
+#' footnotes <- paste(footnotes, collapse = "\\\\")
 #' hline <- utils::tail(which(!duplicated(d[[1]])), -1) - 1L
 #' PrintTable(d, colheadings, align, digits, title = title,
 #'            headnotes = headnotes, footnotes = footnotes,

R/ReadCodeChunks.R

@@ -23,8 +23,7 @@
 #' @export
 #'
 #' @examples
-#' file <- system.file("misc/knitr-markdown.Rmd",
-#'                     package = "inlmisc")
+#' file <- system.file("misc/knitr-markdown.Rmd", package = "inlmisc")
 #' chunks <- ReadCodeChunks(file)
 #' print(chunks)
 #' attr(chunks, "path")