# \donttest{
if (fz_available()) {
out_dir <- file.path(tempdir(), "P=2,V=11.2")
dir.create(out_dir, recursive = TRUE)
writeLines("result = 42", file.path(out_dir, "output.txt"))
model <- list(
varprefix = "$", delim = "{}", formulaprefix = "@", commentline = "#",
output = list(result = "grep 'result' output.txt | cut -d= -f2")
)
values <- fzo(out_dir, model)
}
# }
Run the code above in your browser using DataLab