declare fill arg to resolve tidyr seperate parsing warning

pharmaverse · Oct 3, 2023 · 700fe00 · 700fe00
1 parent b44d4f8
commit 700fe00
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/read_log_file.R b/R/read_log_file.R
@@ -160,7 +160,8 @@ parse_log <- function(nested_log) {
  tidyr::separate(".",
  sep = "\\: ",
  into = c("Variable", "Value"),
- extra = "merge"
+ extra = "merge",
+ fill = "right"
  )
  }
 
@@ -186,6 +187,7 @@ parse_log <- function(nested_log) {
  sep = "\\s",
  into = c("setting", "value"),
  extra = "merge",
+ fill = "right"
  ) %>%
  dplyr::mutate(dplyr::across(tidyselect::where(is.character), stringr::str_trim))
 
@@ -218,6 +220,7 @@ parse_log <- function(nested_log) {
  sep = "\\s",
  into = c("setting", "value"),
  extra = "merge",
+ fill = "right"
  ) %>%
  dplyr::mutate(dplyr::across(tidyselect::where(is.character), stringr::str_trim))
  }

diff --git a/tests/testthat/test-parse.R b/tests/testthat/test-parse.R
@@ -13,7 +13,7 @@ test_that("read_log_file will parse a logrx log file and create the necessary ob
 
  # check that the log file can be parsed
  parsedFile <- read_log_file(filePath)
-''
+
  expect_length(parsedFile, 9)
  expect_named(
  parsedFile,