minor style

Author: kuriwaki

tests/testthat/tests-get_file.R

@@ -40,9 +40,8 @@ test_that("download multiple files with file id - no folder", {
 test_that("download multiple files with file id - with folders", {
   # testthat::skip_if_offline("demo.dataverse.org")
   testthat::skip_on_cran()
-  # file_ids <- get_dataset("doi:10.70122/FK2/V54HGA", server = "demo.dataverse.org")[['files']]$id
   file_ids <- get_dataset("doi:10.70122/FK2/HXJVJU", server = "demo.dataverse.org")[['files']]$id
-  actual <- get_file(file_ids, format="original", server = "demo.dataverse.org")
+  actual <- get_file(file_ids, format = "original", server = "demo.dataverse.org")
   expect_true(length(actual) == 2) # two files in the dataset
   expect_true(is.raw(actual[[2]]))
   expect_true(object.size(actual[[2]]) > 70) # Should be >70 B