style with {styler}

ropensci · Dec 17, 2024 · a7a97f8 · a7a97f8
1 parent 67b06b8
commit a7a97f8
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 16 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -8,9 +8,11 @@ manage_cache <- NULL # nocov start
       utils::globalVariables(c("."))
 
       x <- hoardr::hoard()
-      x$cache_path_set(path = "getCRUCLdata",
-                       prefix = "org.R-project.R/R",
-                       type = "user_cache_dir")
+      x$cache_path_set(
+        path = "getCRUCLdata",
+        prefix = "org.R-project.R/R",
+        type = "user_cache_dir"
+      )
       manage_cache <<- x
     }
   }

diff --git a/codemeta.json b/codemeta.json
@@ -244,7 +244,7 @@
   "applicationCategory": "Tools",
   "isPartOf": "https://ropensci.org",
   "keywords": ["anglia-cru", "climate-data", "cru-cl2", "temperature", "rainfall", "elevation", "data-access", "wind", "relative-humidity", "solar-radiation", "diurnal-temperature", "frost", "cru", "r", "rstats", "r-package", "peer-reviewed"],
-  "fileSize": "920.313KB",
+  "fileSize": "920.18KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

diff --git a/tests/testthat/test-get_CRU.R b/tests/testthat/test-get_CRU.R
@@ -7,7 +7,7 @@ test_that("get_CRU will retrieve only precipitation file when pre_cv TRUE", {
   ))
 
   skip_if_offline()
-  
+
   .get_CRU(
     pre = FALSE,
     pre_cv = TRUE,
@@ -36,7 +36,7 @@ test_that("get_CRU will retrieve only precipitation file when pre_cv TRUE", {
 
 test_that("get_CRU will retrieve diurnal tmp range & tmp files when tmn TRUE", {
   skip_if_offline()
-  
+
   .get_CRU(
     pre = FALSE,
     pre_cv = FALSE,
@@ -64,7 +64,7 @@ test_that("get_CRU will retrieve diurnal tmp range & tmp files when tmn TRUE", {
 # Test that get_CRU will retrieve diurnal tmp & tmp files when tmx TRUE --------
 test_that("get_CRU will retrieve diurnal tmp range & tmp files when tmx TRUE", {
   skip_if_offline()
-  
+
   unlink(list.files(
     path = tempdir(),
     pattern = ".dat.gz$",
@@ -99,7 +99,7 @@ test_that("get_CRU will retrieve diurnal tmp range & tmp files when tmx TRUE", {
 
 test_that("get_CRU will set pre to TRUE if pre_cv is TRUE and pre is FALSE", {
   skip_if_offline()
-  
+
 
   pre <- FALSE
   pre_cv <- TRUE
@@ -117,9 +117,8 @@ test_that("get_CRU will set pre to TRUE if pre_cv is TRUE and pre is FALSE", {
 
 test_that("get_CRU will set tmp and dtr to TRUE if tmn or tmx
           is TRUE and either/both are false", {
+  skip_if_offline()
 
-            skip_if_offline()
-
   tmp <- FALSE
   dtr <- FALSE
   tmn <- TRUE

diff --git a/tests/testthat/test_caching.R b/tests/testthat/test_caching.R
@@ -4,9 +4,11 @@ test_that("test that set_cache creates a cache directory if none exists", {
   withr::local_envvar(R_USER_CACHE_DIR = tempdir())
   temp_cache <- file.path(tempdir(), "R/getCRUCLdata/")
   manage_cache <- hoardr::hoard()
-  manage_cache$cache_path_set(path = "getCRUCLdata",
-                              prefix = "org.R-project.R/R",
-                              type = "user_cache_dir")
+  manage_cache$cache_path_set(
+    path = "getCRUCLdata",
+    prefix = "org.R-project.R/R",
+    type = "user_cache_dir"
+  )
   cache <- TRUE
   .set_cache(cache)
   expect_true(file.exists(manage_cache$cache_path_get()))
@@ -38,9 +40,11 @@ test_that("caching utils list files in cache and delete when asked", {
   withr::local_envvar(R_USER_CACHE_DIR = tempdir())
   temp_cache <- file.path(tempdir(), "R/getCRUCLdata/")
   manage_cache <- hoardr::hoard()
-  manage_cache$cache_path_set(path = "getCRUCLdata",
-                              prefix = "org.R-project.R/R",
-                              type = "user_cache_dir")
+  manage_cache$cache_path_set(
+    path = "getCRUCLdata",
+    prefix = "org.R-project.R/R",
+    type = "user_cache_dir"
+  )
   cache <- TRUE
   cache_dir <- .set_cache(cache)
   f <-