Running 'testthat.R' [11s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(confoundr)
  > 
  > test_check("confoundr")
  -- 1. Error: Formats and Names under No Dropout (@testMakeHistoryOne.r#12)  ----
  1 components of `...` had unexpected names.
  
  We detected these problematic arguments:
  * `from`
  
  Did you misspecify an argument?
  1: makehistory.one(input = df.twdn, id = "uid", times = c(0, 1, 2), exposure = "a", 
         name.history = "ha") at testthat/testMakeHistoryOne.r:12
  2: input %>% ungroup() %>% select(.data$ID, list.exposure) %>% gather(key = "exp.name.time", 
         value = "exp.value", list.exposure) %>% separate(col = "exp.name.time", into = c("exp.name", 
         "exp.time"), sep = "_") %>% mutate(exp.time = as.numeric(.data$exp.time), exp.value = if_else(is.na(.data$exp.value), 
         "NA", as.character(.data$exp.value))) %>% group_by(.data$ID) %>% arrange(.data$ID, 
         .data$exp.time) %>% mutate(his.name = name.history, his.time = .data$exp.time, 
         his.lag = if_else(.data$exp.time == first(.data$his.time, default = "NA"), "H", 
             lag(.data$exp.value)), his.value = CumPaste(.data$his.lag)) %>% select(.data$ID, 
         c("his.name", "his.time", "his.value")) %>% unite(col = "his.name.time", from = c("his.name", 
         "his.time"), sep = "_") %>% spread(.data$his.name.time, .data$his.value)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: unite(., col = "his.name.time", from = c("his.name", "his.time"), sep = "_")
  10: ellipsis::check_dots_unnamed()
  11: stop_dots(message = paste0(length(named), " components of `...` had unexpected names."), 
         dot_names = named, .subclass = "rlib_error_dots_named")
  12: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 2. Error: Formats and Names under Dropout (@testMakeHistoryOne.r#50)  -------
  1 components of `...` had unexpected names.
  
  We detected these problematic arguments:
  * `from`
  
  Did you misspecify an argument?
  1: makehistory.one(input = df.twdy, id = "uid", times = c(0, 1, 2), exposure = "a", 
         name.history = "ha") at testthat/testMakeHistoryOne.r:50
  2: input %>% ungroup() %>% select(.data$ID, list.exposure) %>% gather(key = "exp.name.time", 
         value = "exp.value", list.exposure) %>% separate(col = "exp.name.time", into = c("exp.name", 
         "exp.time"), sep = "_") %>% mutate(exp.time = as.numeric(.data$exp.time), exp.value = if_else(is.na(.data$exp.value), 
         "NA", as.character(.data$exp.value))) %>% group_by(.data$ID) %>% arrange(.data$ID, 
         .data$exp.time) %>% mutate(his.name = name.history, his.time = .data$exp.time, 
         his.lag = if_else(.data$exp.time == first(.data$his.time, default = "NA"), "H", 
             lag(.data$exp.value)), his.value = CumPaste(.data$his.lag)) %>% select(.data$ID, 
         c("his.name", "his.time", "his.value")) %>% unite(col = "his.name.time", from = c("his.name", 
         "his.time"), sep = "_") %>% spread(.data$his.name.time, .data$his.value)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: unite(., col = "his.name.time", from = c("his.name", "his.time"), sep = "_")
  10: ellipsis::check_dots_unnamed()
  11: stop_dots(message = paste0(length(named), " components of `...` had unexpected names."), 
         dot_names = named, .subclass = "rlib_error_dots_named")
  12: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 3. Error: Formats and Names under No Dropout (@testMakeHistoryTwo.r#12)  ----
  1 components of `...` had unexpected names.
  
  We detected these problematic arguments:
  * `from`
  
  Did you misspecify an argument?
  1: makehistory.two(input = df.twdn, id = "uid", times = c(0, 1, 2), exposure.a = "a", 
         exposure.b = "s", name.history.a = "ha", name.history.b = "hs") at testthat/testMakeHistoryTwo.r:12
  2: input.temp %>% select(.data$ID, c("his.name.a", "his.time.a", "his.value.a")) %>% 
         unite(col = "his.name.time.a", from = c("his.name.a", "his.time.a"), sep = "_") %>% 
         spread(.data$his.name.time.a, .data$his.value.a)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: unite(., col = "his.name.time.a", from = c("his.name.a", "his.time.a"), sep = "_")
  10: ellipsis::check_dots_unnamed()
  11: stop_dots(message = paste0(length(named), " components of `...` had unexpected names."), 
         dot_names = named, .subclass = "rlib_error_dots_named")
  12: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 4. Error: Formats and Names under Dropout (@testMakeHistoryTwo.r#71)  -------
  1 components of `...` had unexpected names.
  
  We detected these problematic arguments:
  * `from`
  
  Did you misspecify an argument?
  1: makehistory.two(input = df.twdy, id = "uid", times = c(0, 1, 2), exposure.a = "a", 
         exposure.b = "s", name.history.a = "ha", name.history.b = "hs") at testthat/testMakeHistoryTwo.r:71
  2: input.temp %>% select(.data$ID, c("his.name.a", "his.time.a", "his.value.a")) %>% 
         unite(col = "his.name.time.a", from = c("his.name.a", "his.time.a"), sep = "_") %>% 
         spread(.data$his.name.time.a, .data$his.value.a)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: unite(., col = "his.name.time.a", from = c("his.name.a", "his.time.a"), sep = "_")
  10: ellipsis::check_dots_unnamed()
  11: stop_dots(message = paste0(length(named), " components of `...` had unexpected names."), 
         dot_names = named, .subclass = "rlib_error_dots_named")
  12: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  == testthat results  ===========================================================
  [ OK: 342 | SKIPPED: 0 | WARNINGS: 28 | FAILED: 4 ]
  1. Error: Formats and Names under No Dropout (@testMakeHistoryOne.r#12) 
  2. Error: Formats and Names under Dropout (@testMakeHistoryOne.r#50) 
  3. Error: Formats and Names under No Dropout (@testMakeHistoryTwo.r#12) 
  4. Error: Formats and Names under Dropout (@testMakeHistoryTwo.r#71) 
  
  Error: testthat unit tests failed
  Execution halted