## ----run_simple, cache=FALSE, out.width='30%', out.height='30%'----------
library(runOPM)
# get the SPE1 deck form the package extdata directory
deck <- system.file("extdata", "SPE1_CASE1.DATA", package = "runOPM")
RunFlow(deck, basedir = "tmp", wait = TRUE)
rslts <- EclSum(casename = "SPE1_CASE1", basedir = "tmp")
PlotEach(rslts, wgnames = "FIELD")
## ----cleanup_simple, echo=FALSE, warning=FALSE, message=FALSE, eval=TRUE----
unlink("tmp", recursive = TRUE, force = TRUE)
## ----copy_to_docs, echo=FALSE, warning=FALSE, message=FALSE, eval=TRUE, results='hide'----
from <- file.path(getwd(),"usingOPM.html")
to <- file.path("../docs","index.html")
file.copy(from = from, to = to, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.