Nothing
#!/usr/bin/env Rscript
CONFIG <- rconfig::rconfig()
verbose <- rconfig::value(CONFIG$verbose, FALSE)
if (verbose)
message(Sys.time(), " - Started")
species <- CONFIG$species
if (is.null(species))
stop("Species not provided", call. = FALSE)
if (!(species %in% iris$Species))
stop("Provide a valid species")
if (verbose)
message("Getting summaries for species ", species)
summary(iris[iris$Species == species, 1:4])
if (verbose)
message(Sys.time(), " - Done")
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.