Nothing
## ----init, include = FALSE-----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup---------------------------------------------------------------
library(knitrProgressBar)
arduously_long_nchar <- function(input_var, .pb=NULL) {
update_progress(.pb) # this is a function provided by the package
Sys.sleep(0.1)
nchar(input_var)
}
## ----make_kpb_1, eval = FALSE--------------------------------------------
# # not run
# pb <- progress_estimated(length(letters))
#
# purrr::map_int(letters, arduously_long_nchar, .pb = pb)
## ----make_kpb_suppression, eval = FALSE----------------------------------
# options(kpb.suppress_noninteractive = TRUE)
## ----make_kpb_logfiles, eval = FALSE-------------------------------------
# options(kpb.use_logfile = TRUE)
## ----make_kpb_specific_file, eval = FALSE--------------------------------
# options(kpb.use_logfile = TRUE)
# options(kpb.log_file = "my_logfile.log")
## ----make_kkpb_pattern, eval = FALSE-------------------------------------
# options(kpb.use_logfile = TRUE)
# options(kpb.log_pattern = "pb_out_")
## ----direct_con, eval = FALSE--------------------------------------------
# # to terminal, or print in a knitr chunk
# pb <- progress_estimated(length(letters), progress_location = stdout())
#
# # to stderr, so visible from knitr
# pb <- progress_estimated(length(letters), progress_location = stderr())
#
# # to a file, visible using tailf
# pb <- progress_estimated(length(letters), progress_location = file("progress.log", open = "w"))
## ----test_pb_null--------------------------------------------------------
pb <- progress_estimated(length(letters), progress_location = NULL)
purrr::map_int(letters, arduously_long_nchar, .pb = pb)
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.