data(kostra_dwd_2020): fnames

dimfalk · Apr 3, 2024 · a34796e · a34796e
1 parent 31f7141
commit a34796e
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/data-raw/kostra_dwd_2020.R b/data-raw/kostra_dwd_2020.R
@@ -6,20 +6,20 @@ d <- c(5, 10, 15, 20, 30, 45, 60, 90, 120, 180, 240, 360, 540, 720, 1080, 1440,
 
 d_pad <- stringr::str_pad(d, width = 5, pad = "0")
 
-files <- paste0("GIS_KOSTRA-DWD-2020_D", d_pad,".zip")
+fnames <- paste0("GIS_KOSTRA-DWD-2020_D", d_pad,".zip")
 
-urls <- paste0(source, files)
+urls <- paste0(source, fnames)
 
-for (i in 1:length(files)) {
+for (i in 1:length(fnames)) {
 
-  utils::download.file(urls[i], files[i])
+  utils::download.file(urls[i], fnames[i])
 
-  utils::unzip(files[i])
+  utils::unzip(fnames[i])
 
-  unlink(files[i])
+  unlink(fnames[i])
 }
 
-files_shp <- list.files(pattern = "*.shp", recursive = TRUE)
+files_shp <- list.files(pattern = "shp$", recursive = TRUE)
 
 kostra_dwd_2020 <- list()
 
@@ -41,4 +41,4 @@ for (i in 1:length(d)) {
 
 usethis::use_data(kostra_dwd_2020, overwrite = TRUE)
 
-unlink(files |> stringr::str_sub(1, -5), recursive = TRUE)
+stringr::str_sub(fnames, 1, -5) |> unlink(recursive = TRUE)