d <- read.dcf("DESCRIPTION")
title <- d[colnames(d) == "Title"] cat(c("# ", paste(trimws(strsplit(title, "\n")[[1]]), collapse = " ")))
Github: https://github.com/randy3k/retry
Documentation: https://randy3k.github.io/retry
cat(d[colnames(d) == "Description"])
You can install the released version of retry from CRAN with:
install.packages("retry")
The development version could be installed with:
devtools::install_github("randy3k/retry")
Some examples of retry
and wait_until
.
library(retry) f <- function(x) { if (runif(1) < 0.9) { stop("random error") } x + 1 } # keep retring when there is a random error retry(f(1), when = "random error") #> [1] 2 # keep retring until a requirement is satisified. retry(f(1), until = function(val, cnd) val == 2) #> [1] 2 # or using one sided formula retry(f(1), until = ~ . == 2) #> [1] 2 z <- 0 later::later(function() z <<- 1, 1) wait_until(z == 1) z #> [1] 1
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.