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