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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.