# \donttest{
if (fz_available()) {
tf <- tempfile(fileext = ".txt")
writeLines(c("P = ${P~1.013}", "V = ${V~22.4}"), tf)
model <- list(varprefix = "$", delim = "{}", formulaprefix = "@",
commentline = "#")
out <- tempfile()
fzc(tf, list(P = 2.0, V = 11.2), model, out)
fzc(tf, list(P = c(1.0, 2.0), V = c(11.2, 22.4)), model, out)
}
# }
Run the code above in your browser using DataLab