Nothing
logprint <- function(msg, checkverbose=FALSE, checkshowmsg=FALSE, preprint="", level="", timestamp=TRUE)
{
if (identical(msg, magicmsg_first_connection))
return(invisible())
if ((getval(serverlog) && !checkverbose && !checkshowmsg) || (getval(verbose) && checkverbose) || (getval(showmsg) && checkshowmsg))
{
if (timestamp)
ts <- paste0("[", Sys.time(), "]: ")
else
ts <- ""
logmsg <- paste0(preprint, ts, level, ifelse(level=="", "", ": "), msg, "\n")
# cat(logmsg)
message(logmsg, appendLF=FALSE)
logprint_file(logmsg)
}
invisible()
}
logfile_init <- function()
{
if (isWindows())
prefix <- base::getwd()
else
prefix <- tools::file_path_as_absolute("~")
logfile <- paste0(prefix, "/.remoterserverlog")
if (file.exists(logfile))
file.remove(logfile)
logfile
}
logprint_file <- function(logmsg)
{
cat(logmsg, file=getval(logfile), append=TRUE)
invisible()
}
#' showlog
#'
#' Show the server log on the client.
#'
#' @export
showlog <- function()
{
file <- getval(logfile)
if (file.exists(file))
readLines(getval(logfile))
else
stop("no log file found!")
}
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.