Nothing
## ---- echo = FALSE------------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
library(madrat, quietly = TRUE)
getConfig("cachefolder", verbose = FALSE)
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
getDependencies("calcTauTotal", packages = "madrat")
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
setConfig(verbosity = 3)
fp <- madrat:::fingerprint("calcTauTotal", details = TRUE, packages = "madrat")
## ---- echo = TRUE, eval=FALSE-------------------------------------------------
# "!# @monitor madrat:::sysdata magclass:::ncells"
# "!# @ignore madrat:::toolAggregate"
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
setConfig(globalenv = TRUE)
readData <- function() return(1)
readData2 <- function() return(2)
calcExample <- function() {
a <- readSource("Data")
return(a)
}
calcExample2 <- function() {
a <- readSource("Data")
if (FALSE) a <- readSource("Data2")
return(a)
}
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
fp <- madrat:::fingerprint("calcExample", details = TRUE, packages = "madrat")
fp2 <- madrat:::fingerprint("calcExample2", details = TRUE, packages = "madrat")
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
readData <- function() return(99)
fp <- madrat:::fingerprint("calcExample", details = TRUE, packages = "madrat")
fp2 <- madrat:::fingerprint("calcExample2", details = TRUE, packages = "madrat")
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
readData2 <- function() {
"!# @monitor madrat:::toolAggregate"
return(99)
}
fp <- madrat:::fingerprint("calcExample", details = TRUE, packages = "madrat")
fp2 <- madrat:::fingerprint("calcExample2", details = TRUE, packages = "madrat")
## ---- echo = TRUE, eval=TRUE--------------------------------------------------
calcExample2 <- function() {
"!# @ignore readData2"
a <- readSource("Data")
if (FALSE) a <- readSource("Data2")
return(a)
}
calcExample3 <- function() {
a <- calcOutput("Example2")
return(a)
}
fp2 <- madrat:::fingerprint("calcExample2", details = TRUE, packages = "madrat")
fp3 <- madrat:::fingerprint("calcExample3", details = TRUE, packages = "madrat")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.