updates to fix cmd checks

atorus-research · Aug 20, 2024 · 49e242e · 49e242e
1 parent c47bbbd
commit 49e242e
Show file tree

Hide file tree

Showing 5 changed files with 19 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -42,6 +42,7 @@ Suggests:
     knitr,
     labelled,
     metacore,
+    pharmaverseadam,
     readxl,
     rmarkdown,
     testthat (>= 3.0.0),

diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,9 @@
 # xportr 0.4.0
 
+## xportr development version
+
+* New argument in `xportr_write()` allows users to specify the maximum file size (in gb) of their exported xpt files. (#268)
+
 ## New Features
 
 * All core functions can be run together by using new function `xportr()` (#137)

diff --git a/R/write.R b/R/write.R
@@ -183,7 +183,7 @@ export_to_xpt <- function(.df, path, max_size_gb, file_prefix) {
         high <- mid - 1
       }
 
-      unlink(temp_file)  # Clean up the temporary file
+      unlink(temp_file) # Clean up the temporary file
     }
 
     # Write the best fitting chunk to the final file

diff --git a/man/xportr_write.Rd b/man/xportr_write.Rd
diff --git a/tests/testthat/test-write.R b/tests/testthat/test-write.R
@@ -214,19 +214,19 @@ test_that("write Test 13: Capture errors by haven and report them as such", {
 
 ## Test 14: xportr_write: `max_size_gb` is used to split data frame into specified maximum file size ----
 test_that("write Test 14: `max_size_gb` is used to split data frame into specified maximum file size", {
-adlb <- pharmaverseadam::adlb
+  adlb <- pharmaverseadam::adlb
 
-tmpdir <- tempdir()
+  tmpdir <- tempdir()
 
-#20 mb
-max_size_gb <- 20 / 1000
+  # 20 mb
+  max_size_gb <- 20 / 1000
 
-xportr_write(adlb,
-  path = paste0(tmpdir, "/adlb.xpt"),
-  domain = "adlb",
-  max_size_gb = max_size_gb,
-  strict_checks = FALSE
-)
+  xportr_write(adlb,
+    path = paste0(tmpdir, "/adlb.xpt"),
+    domain = "adlb",
+    max_size_gb = max_size_gb,
+    strict_checks = FALSE
+  )
 
   expect_true(
     file.exists(file.path(tmpdir, "adlb1.xpt")),