fix bug in test on a windows machine

R/biocol.R

@@ -495,7 +495,6 @@ read_calc_biocol <- function(
     biocol_overtime / npp_pot_overtime
   )
   biocol_luc <- npp_potential - npp
-  # browser()
   # biocol_luc2 <- (npp_potential - pftnpp_cft) * apply(cftfrac[, , -c(grass_bands, bp_bands)], c("cell", "year"), sum) +
   #               (npp_potential - pftnpp_grasslands) * apply(cftfrac[, , grass_bands], c("cell", "year"), sum) +
   #               (npp_potential - pftnpp_bioenergy) * apply(cftfrac[, , bp_bands], c("cell", "year"), sum)

R/utils.R

@@ -40,7 +40,7 @@ get_major_file_ext <- function(path) {
     z = all_file_types
   ) %>%
     na.omit()
-  browser()
+
   # Detect actual LPJmL data type
   types <- sapply(
     files_to_check,

tests/testthat/test_calc_biocol.R

@@ -83,7 +83,7 @@ test_that("test calc_biocal", {
   # test for expected array dimensions
   expect_true(
     sapply(biocol, function(x) {
-      all(dim(x) == c(2, 517)) || all(dim(x) == c(2, 30) || all(dim(x) == NULL))
+      all(dim(x) == c(2, 516)) || all(dim(x) == c(2, 30)) || all(dim(x) == NULL)
     }) %>%
       all() %>%
       suppressWarnings()