minor color change

vignettes/download.Rmd

@@ -8,11 +8,12 @@ The **inldata** package offers a comprehensive collection of datasets in various
 
 ```{r include=FALSE}
 
+pkg <- "inldata"
 destdir <- "download_files"
 paste0(destdir, "/*") |> unlink()
 
 files <- inldata::write_datasets(
-  package = "inldata",
+  package = pkg,
   destdir = destdir,
   gzip = c("json", "geojson"),
   pretty = FALSE
@@ -118,7 +119,7 @@ j <- inldata::get_file_ext(hrefs) |>
 m[cbind(i, j)] <- data
 tbl <- m
 
-m <- utils::data(package = "inldata")$results
+m <- utils::data(package = pkg)$results
 titles <- m[, "Title"]
 names(titles) <- m[, "Item"]
 titles <- titles[rownames(tbl)]
@@ -137,18 +138,29 @@ col_names <- sprintf(
   titles, headers
 )
 
-ver <- utils::packageVersion(pkg = "inldata") |> format()
-archive <- sprintf("%s/inldata-datasets-%s.zip", destdir, ver)
+ver <- utils::packageVersion(pkg = pkg) |> format()
+archive <- sprintf("%s/%s-datasets-v%s.zip", destdir, pkg, ver)
 checkmate::assert_path_for_output(archive, overwrite = TRUE)
 archive::archive_write_dir(archive, dir = destdir, format = "zip")
 archive_size <- inldata::get_file_size(archive)
 
 ```
 
-```{r echo=FALSE, results="asis"}
+<style>
+  table th {
+    text-align: center;
+  }
+</style>
 
+```{r echo=FALSE, results="asis"}
+align <- c("l", rep("c", ncol(tbl) - 1L))
 options(knitr.kable.NA = '-')
-knitr::kable(tbl, row.names = FALSE, col.names = col_names)
+knitr::kable(tbl,
+  row.names = FALSE,
+  col.names = col_names,
+  align = align,
+  table.attr = 'style="width:100%; text-align:center;"'
+)
 
 ```
 

vignettes/facilities.Rmd

@@ -18,7 +18,7 @@ map <- webmap::make_map(
     popup = ~name,
     label = ~id,
     labelOptions = leaflet::labelOptions(noHide = TRUE, textOnly = TRUE),
-    color = "#0033FF",
+    color = "#A40802",
     opacity = 0.5,
     weight = 2
   ) |>

vignettes/iwd.Rmd

@@ -14,7 +14,7 @@ map <- webmap::make_map(
 ) |>
   leaflet::addPolylines(
     data = spdf,
-    color = "#025D8C",
+    color = "#A40802",
     weight = 3,
     opacity = 0.5
   ) |>

vignettes/lakes.Rmd

@@ -26,7 +26,7 @@ map <- webmap::make_map(
     data = spdf,
     popup = ~popup,
     label = ~gnis_nm,
-    color = "#3399CC",
+    color = "#A40802",
     opacity = 0.5,
     weight = 2
   ) |>

vignettes/mountains.Rmd

@@ -16,7 +16,7 @@ map <- webmap::make_map(
     data = spdf,
     popup = ~name,
     labelOptions = leaflet::labelOptions(noHide = TRUE, textOnly = TRUE),
-    color = "#0033FF",
+    color = "#A40802",
     opacity = 0.5,
     weight = 2
   ) |>

vignettes/percponds.Rmd

@@ -25,7 +25,7 @@ map <- webmap::make_map(
     data = spdf,
     popup = ~popup,
     label = ~name,
-    color = "#025D8C",
+    color = "#A40802",
     opacity = 0.5,
     weight = 3
   ) |>

vignettes/streams.Rmd

@@ -26,7 +26,7 @@ map <- webmap::make_map(
     data = spdf,
     popup = ~popup,
     label = ~gnis_nm,
-    color = "#3399CC",
+    color = "#A40802",
     weight = 2,
     opacity = 0.5
   ) |>