require(Rtrack)
experiment.description <- system.file("extdata", "Minimal_experiment.xlsx",
package = "Rtrack")
experiment <- read_experiment(experiment.description, format = "excel",
project.dir = system.file("extdata", "", package = "Rtrack"))
tempfile <- file.path(tempdir(), "Minimal_experiment.json") # Temporary file
export_json(experiment, file = tempfile)
imported.experiment <- read_experiment(tempfile, format = "json")
# Experiments are identical except for export timestamp/notes
all.equal(experiment, imported.experiment)
identical(experiment$metrics, imported.experiment$metrics)
Run the code above in your browser using DataLab