R Under development (unstable) (2024-01-25 r85826 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 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 
   2.82    1.04   38.34