Nothing
#' Get processing time string
#'
#' @param time_start start time of the process (of class "POSIXct" as given by
#' "Sys.time()")
#' @param time_end end time of the process (of class "POSIXct" as given by
#' "Sys.time()")
#'
#' @return a specialized string containing the processed time
#' @export
get_processing_time_string <- function(time_start, time_end) {
stopifnot(length(time_start) == 1)
stopifnot(length(time_start) == 1)
stopifnot("POSIXct" %in% class(time_start))
stopifnot("POSIXct" %in% class(time_start))
paste0("processing time: ",
round(as.numeric(time_end - time_start,
units = "secs"),
digits = 2),
" s")
}
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.