fix lintrs

Author: wlangera

source/R/download_occ_cube.R

@@ -6,8 +6,10 @@ download_occ_cube <- function(sql_query, file, path, overwrite = FALSE) {
   # Stop if overwrite = FALSE and file does not exist
   file_path <- file.path(path, file)
   if (file.exists(file_path) && !overwrite) {
-    message(paste("File already exists. Reading existing file.",
-            "Set `overwrite = TRUE` to overwrite file.", sep = "\n"))
+    message(
+      paste("File already exists. Reading existing file.",
+            "Set `overwrite = TRUE` to overwrite file.", sep = "\n")
+    )
 
     occ_cube <- readr::read_csv(file = file_path, show_col_types = FALSE)
 
@@ -34,7 +36,8 @@ download_occ_cube <- function(sql_query, file, path, overwrite = FALSE) {
   readr::write_csv(
     x = occ_cube,
     file = file_path,
-    append = FALSE)
+    append = FALSE
+  )
 
   # Return tibble
   return(occ_cube)

source/add_spatial_resources.Rmd

@@ -112,17 +112,19 @@ mgrs10_resource <- list(
     name = "CC0-1.0",
     path = "https://creativecommons.org/publicdomain/zero/1.0/",
     title = "Creative Commons Zero v1.0 Universal"
-    ))
-  )
+  ))
+)
 
 b3data_package <- add_manual_resource(
-  b3data_package, mgrs10_resource, replace = TRUE)
+  b3data_package, mgrs10_resource, replace = TRUE
+)
 
 # Write package to directory
 write_package(
   package = b3data_package,
   directory = package_path,
-  compress = TRUE)
+  compress = TRUE
+)
 ```
 
 ## EEA 100 km reference grid Europe

source/create_b3data_package.Rmd

@@ -167,7 +167,8 @@ b3data_package <- create_package() %>%
       "Spatial aggregation is done using the MGRS grid at 10 km scale.",
       "Only grid cells that fall within the 10 km MGRS reference grid for",
       "mainland Belgium (see b3data: `mgrs10_refgrid_belgium.gpkg`) are",
-      "included."),
+      "included."
+    ),
     sources = list(list(
       title = "GBIF Occurrence Download",
       path = "https://doi.org/10.15468/dl.y3wpwk"
@@ -176,7 +177,7 @@ b3data_package <- create_package() %>%
       name = "CC0-1.0",
       path = "https://creativecommons.org/publicdomain/zero/1.0/",
       title = "Creative Commons Zero v1.0 Universal"
-      ))
+    ))
   )
 ```
 
@@ -215,5 +216,6 @@ dir.create(package_path, showWarnings = FALSE, recursive = TRUE)
 write_package(
   package = b3data_package,
   directory = package_path,
-  compress = TRUE)
+  compress = TRUE
+)
 ```