address case of character vector passed as param

FertigLab · Mar 13, 2024 · bd01e01 · bd01e01
1 parent 5fd637f
commit bd01e01
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -328,6 +328,7 @@ check_arg <- function(arg, allow_class = NULL, allow_len = NULL,
 #' @return obj Object itself in case its not a character
 read_if_char <- function(obj) {
   if (is(obj, "character")) {
+    check_arg(obj, allow_class = "character", allow_len = 1)
     obj <- read.csv(obj, stringsAsFactors = FALSE)
   }
   return(obj)

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -16,6 +16,7 @@ test_that("bool conversion function works",{
 test_that("read if char tries to read a file", {
   expect_error(read_if_char("./file_that_not_exists.csv",
                             "cannot open the connection"))
+  expect_error(read_if_char(c('a', 'b')), "Length of obj must be one of: 1")
 })
 
 test_that("mandatory field absence yields error, presence does not", {