Add missing file conversion size parameter for B which created missin…

…gs and errors
ropensci · Sep 19, 2024 · 160ce4b · 160ce4b
1 parent 6f34592
commit 160ce4b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/ct_process_response.R b/R/ct_process_response.R
@@ -17,7 +17,8 @@ ct_process_response <-
     if (bulk) {
 
       if (!dir.exists(tools::R_user_dir('comtradr_bulk',which = 'cache'))) {
-        dir.create(tools::R_user_dir('comtradr_bulk',which = 'cache'), recursive = TRUE)
+        dir.create(tools::R_user_dir('comtradr_bulk',which = 'cache'),
+                   recursive = TRUE)
       }
       filename <- httr2::resp_header(resp, "Content-Disposition") |>
         stringr::str_remove('.*filename="') |>

diff --git a/R/utils.R b/R/utils.R
@@ -467,7 +467,7 @@ replace_month <- function(date_str) {
 #'
 #' @noRd
 convert_file_size <- function(file_sizes) {
-  units <- c(KB = 1024, MB = 1024^2, GB = 1024^3, TB = 1024^4)
+  units <- c(B = 1, KB = 1024, MB = 1024^2, GB = 1024^3, TB = 1024^4)
   sapply(file_sizes, function(x) {
     parts <- strsplit(x, " ")[[1]]
     number <- as.numeric(parts[1])