warning messages in readdesign suppressed

R/readdesign.R

@@ -22,13 +22,13 @@
 
 readdesign <- function(design = designfile, designtype = destype) {
   design <- switch(designtype,
-    "ngene" = readr::read_delim(design,
+    "ngene" = suppressWarnings(readr::read_delim(design,
       delim = "\t",
       escape_double = FALSE,
       trim_ws = TRUE,
       col_select = c(-Design, -tidyr::starts_with("...")),
-      name_repair = "universal", show_col_types = FALSE
-    ) %>%
+      name_repair = "universal", show_col_types = FALSE ,guess_max = Inf
+    )) %>%
       dplyr::filter(!is.na(Choice.situation)),
     "spdesign" = as.data.frame(readRDS(design)) %>%
       dplyr::mutate(Choice.situation = 1:dplyr::n()) %>%

tests/testthat/test-readdesign.R

@@ -12,8 +12,7 @@ test_that("file does not exist", {
 })
 
 test_that("all is correct, but gives a warning", {
-  expect_warning(readdesign(design = design_path, designtype = "ngene"),
-                 "One or more parsing issues, call ")
+  expect_no_error(readdesign(design = design_path, designtype = "ngene"))
 })