Running 'testthat.R' [210s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(tfruns)
  > 
  > clean_runs(confirm = FALSE)
  No runs found to clean.
  > purge_runs(confirm = FALSE)
  Permanently removed 0 runs
  > 
  > test_check("tfruns")
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  
  > library(tfruns)
  
  > FLAGS <- flags(flag_numeric("learning_rate", 0.01, 
  +     "Initial learning rate."), flag_integer("max_steps", 5000, 
  +     "Number of steps to run  ..." ... [TRUNCATED] 
  
  > metrics <- readRDS("metrics.rds")
  
  > write_run_metadata("metrics", metrics)
  
  > write_run_metadata("properties", list(foo = "bar", 
  +     index = 42))
  
  > write_run_metadata("foo", function(data_dir) {
  +     file.create(file.path(data_dir, "foo"))
  + })
  
  > writeLines(c("1", "2", "3"), "extra.dat")
  
  > writeLines(c("1", "2", "3"), file.path("subdir", "extra.dat"))
  [ FAIL 0 | WARN 0 | SKIP 0 | PASS 49 ]
  > 
  > proc.time()
     user  system elapsed 
     4.14    2.15   43.48