## ----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")

## ----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")
fp2 <- madrat:::fingerprint("calcExample2")

## ----echo = TRUE, eval=TRUE---------------------------------------------------
readData <- function() return(99)
fp <- madrat:::fingerprint("calcExample")
fp2 <- madrat:::fingerprint("calcExample2")

## ----echo = TRUE, eval=TRUE---------------------------------------------------
readData2 <- function() {
  "!# @monitor madrat:::toolAggregate"
  return(99)
}
fp <- madrat:::fingerprint("calcExample")
fp2 <- madrat:::fingerprint("calcExample2")

## ----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")
fp3 <- madrat:::fingerprint("calcExample3")