# nocov start
worker_log_env <- new.env()
worker_log_session <- function(sessionId) {
assign("sessionId", sessionId, envir = worker_log_env)
}
worker_log_format <- function(message, session, level = "INFO", component = "RScript") {
paste(
format(Sys.time(), "%y/%m/%d %H:%M:%S"),
" ",
level,
" sparklyr: ",
component,
" (",
session,
") ",
message,
sep = ""
)
}
worker_log_level <- function(..., level, component = "RScript") {
if (is.null(worker_log_env$sessionId)) {
worker_log_env <- get0("worker_log_env", envir = .GlobalEnv)
if (is.null(worker_log_env$sessionId)) {
return()
}
}
args <- list(...)
message <- paste(args, sep = "", collapse = "")
formatted <- worker_log_format(message, worker_log_env$sessionId,
level = level, component = component
)
cat(formatted, "\n")
}
worker_log <- function(...) {
worker_log_level(..., level = "INFO")
}
worker_log_warning <- function(...) {
worker_log_level(..., level = "WARN")
}
worker_log_error <- function(...) {
worker_log_level(..., level = "ERROR")
}
# nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.