Update docs with pkgdev

Author: github-actions[bot]

R/gisco-cache.R

@@ -131,7 +131,7 @@ gisco_set_cache_dir <- function(
 
     giscor_file <- file.path(config_dir, "gisco_cache_dir")
 
-    if (!file.exists(giscor_file) || overwrite == TRUE) {
+    if (!file.exists(giscor_file) || overwrite) {
       # Create file if it doesn't exist
       writeLines(cache_dir, con = giscor_file)
     } else {

R/gisco-get-metadata.R

@@ -36,7 +36,7 @@ gisco_get_metadata <- function(
   db <- db[db$id_giscor == id, ]
   db <- db[db$year == year, ]
   db <- db[db$ext == "csv", ]
-  db <- db[grepl("_AT", db$api_file), ]
+  db <- db[grepl("_AT", db$api_file, fixed = TRUE), ]
 
   url <- paste0(db$api_entry, "/", db$api_file)
   tmp_file <- basename(tempfile(fileext = ".csv"))

R/utils-country.R

@@ -13,7 +13,11 @@ convert_country_code <- function(names, out = "eurostat") {
   # Vectorize
   outnames <- lapply(names, function(x) {
     if (
-      any(grepl("kosovo", tolower(x)), "xk" == tolower(x), "xkx" == tolower(x))
+      any(
+        grepl("kosovo", tolower(x), fixed = TRUE),
+        "xk" == tolower(x),
+        "xkx" == tolower(x)
+      )
     ) {
       code <- switch(out,
         "eurostat" = "XK",

R/utils-sf.R

@@ -31,7 +31,7 @@ read_geo_file_sf <- function(file_local, q = NULL, ...) {
 
     # Read with vszip
     file_local <- file.path("/vsizip/", file_local, shp_end)
-    file_local <- gsub("//", "/", file_local)
+    file_local <- gsub("//", "/", file_local, fixed = TRUE)
   }
 
   if (!is.null(q)) {

R/utils-url.R

@@ -136,7 +136,7 @@ download_url <- function(
 
   # Create destfile and clean
   file_local <- file.path(cache_dir, name)
-  file_local <- gsub("//", "/", file_local)
+  file_local <- gsub("//", "/", file_local, fixed = TRUE)
 
   msg <- paste0("Cache dir is {.path ", cache_dir, "}.")
   make_msg("info", verbose, msg)

codemeta.json

@@ -261,7 +261,7 @@
   "applicationCategory": "cartography",
   "isPartOf": "http://ropengov.org/",
   "keywords": ["ropengov", "r", "spatial", "api-wrapper", "rstats", "r-package", "eurostat", "gisco", "thematic-maps", "eurostat-data", "cran", "ggplot2", "gis", "cran-r"],
-  "fileSize": "1920.073KB",
+  "fileSize": "1925.973KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

man/figures/README-resolution-map-1.png

@@ -133,7 +133,7 @@ test_that("gisco_id_api_lau online", {
 
   expect_s3_class(n, "tbl_df")
   expect_true(inherits(n, "sf"))
-  expect_true(any(grepl("lau", names(n))))
+  expect_true(any(grepl("lau", names(n), fixed = TRUE)))
   # epsg
   expect_snapshot(gisco_id_api_lau(epsg = 222, x = 1, y = 1), error = TRUE)
 
@@ -147,7 +147,7 @@ test_that("gisco_id_api_lau online", {
     )
   )
   expect_s3_class(n, "tbl_df")
-  expect_true(any(grepl("lau", names(n))))
+  expect_true(any(grepl("lau", names(n), fixed = TRUE)))
   expect_false(inherits(n, "sf"))
 })
 
@@ -194,7 +194,7 @@ test_that("gisco_id_api_river_basin online", {
       verbose = TRUE
     )
   )
-  expect_true(any(grepl("sizevalue", names(n))))
+  expect_true(any(grepl("sizevalue", names(n), fixed = TRUE)))
 
   expect_s3_class(n, "tbl_df")
 
@@ -213,7 +213,7 @@ test_that("gisco_id_api_biogeo_region online", {
       verbose = TRUE
     )
   )
-  expect_true(any(grepl("biogeo", names(n))))
+  expect_true(any(grepl("biogeo", names(n), fixed = TRUE)))
 
   expect_s3_class(n, "tbl_df")
 
@@ -232,7 +232,7 @@ test_that("gisco_id_api_census_grid online", {
       verbose = TRUE
     )
   )
-  expect_true(any(grepl("grid", names(n))))
+  expect_true(any(grepl("grid", names(n), fixed = TRUE)))
 
   expect_s3_class(n, "tbl_df")
 
@@ -247,7 +247,7 @@ test_that("gisco_id_api_census_grid online", {
       verbose = FALSE
     )
   )
-  expect_true(any(grepl("grid", names(n))))
+  expect_true(any(grepl("grid", names(n), fixed = TRUE)))
 
   expect_s3_class(n, "tbl_df")