In qomaio/r-smuggler: Transport Data and Commands Across the 'FAME' / 'R' Border

knitr::opts_chunk$set(echo = TRUE,comment='')

library(qoma.smuggler)
library(rhli)


if(!open_hli())knitr::knit_exit()

dbname <- paste(Sys.getenv("FAME"),"util","driecon",sep="/")
cat(dbname)
famedata <- read_fame(dbname)

cat(famedata$get_meta('GDP'))

txtfile <- file.path(tempdir(),"tmp.txt")
dbfile <- file.path(tempdir(),"tmp.db")
write_fame(dbfile,famedata)

status <- Integer(-1)
cmd <- Character(paste(
  "open<acc read>\"",dbfile, "\" as db; ",
  "output<acc over>\"",txtfile, "\"; ",
  "whats gdp;",
  "output terminal; ",
  "close db; ",  
  sep=""))
cfmfame(status, cmd)
cat(readLines(txtfile), sep = '\n')

close_hli()

file.remove(txtfile)
file.remove(dbfile)

qomaio/r-smuggler documentation built on May 27, 2019, 3:32 p.m.