Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(flow)
## ---- eval = FALSE------------------------------------------------------------
# # display a function's body
# flow_view(ave)
## ---- eval = FALSE------------------------------------------------------------
# # if non standard evaluation is an issue, use a one element named list
# fun <- ave
# flow_view(list(ave = fun))
## ---- eval = FALSE------------------------------------------------------------
# # display script
# flow_view("../tests/testthat.R")
## ---- eval = FALSE------------------------------------------------------------
# # display quoted expression
# flow_view(quote(if(1 + 1 == 2) {"ok"} else {"oh no"}))
## ---- eval = FALSE------------------------------------------------------------
# # display a function's body
# flow_view(ave, engine = "plantuml")
## -----------------------------------------------------------------------------
factorial <- function(x) {
if(!is.integer(x)) stop("`x` must be integer!")
res <- 1
for(i in 2:x) {
res <- res * i
if(res > 1000) stop("too big!!!")
}
res
}
## -----------------------------------------------------------------------------
flow_run(factorial(5L))
## ---- error = TRUE------------------------------------------------------------
flow_run(factorial(10L))
## ---- eval=TRUE---------------------------------------------------------------
vec <- c(1:3, NA)
flow_run(median(vec, na.rm = TRUE))
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.