[tests] fix tests

JanMarvin · Apr 20, 2024 · 6bb7978 · 6bb7978
1 parent b05fc92
commit 6bb7978
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/R/wb_functions.R b/R/wb_functions.R
@@ -73,7 +73,7 @@ dims_to_dataframe <- function(dims, fill = FALSE) {
 #'  dataframe_to_dims(df)
 #' @keywords internal
 #' @export
-dataframe_to_dims <- function(df, dim_break = TRUE) {
+dataframe_to_dims <- function(df, dim_break = FALSE) {
 
   if (dim_break) {
 
@@ -102,7 +102,7 @@ dataframe_to_dims <- function(df, dim_break = TRUE) {
     tmp <- paste0(
       cols[[1]][[1]], rows[[1]][[1]],
       ":",
-      rev(cols)[[1]][[1]],  rev(rows)[[1]][[1]]
+      rev(cols)[[1]][[1]], rev(rows)[[1]][[1]]
     )
 
     return(tmp)

diff --git a/man/dataframe_to_dims.Rd b/man/dataframe_to_dims.Rd
diff --git a/man/dims_helper.Rd b/man/dims_helper.Rd
diff --git a/tests/testthat/test-wb_functions.R b/tests/testthat/test-wb_functions.R
@@ -190,7 +190,7 @@ test_that("dataframe_to_dims", {
 
   # dims_to_dataframe will always create a square
   df <- dims_to_dataframe("A1:D5;F1:F6;D8", fill = TRUE)
-  dims <- dataframe_to_dims(df)
+  dims <- dataframe_to_dims(df, dim_break = TRUE)
   df2 <- dims_to_dataframe(dims, fill = TRUE)
   expect_equal(df, df2)