Nothing
#' @family low-level logging functions
log_to_r_console <- function(header,
body = ""
) {
if (missing(header)) stop("A header of log entry is missing.")
message(header)
if (body != "") {
cat(file = stdout(), body)
} # end of if
return(
paste0(header, ifelse(body != "", paste0("\n", body), "")
)
)
} # end of log_to_r_console()
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.