, , , R R Shiny R Shiny, β library (log4r)
library(log4r)
loggerDebug <- create.logger()
logfile(loggerDebug) <- 'data/debugData.log'
level(loggerDebug) <- 'INFO'
loggerServer <- create.logger()
logfile(loggerServer) <- 'data/serverData.log'
level(loggerServer) <- 'INFO'
, . (, R , )
test <- list()
test$test <- "test"
system("chmod a+rwx /...pathToYourApp..../data")
system("chmod a+rwx /...pathToYourApp..../data/debugData.log")
info(loggerDebug, paste('| TEST |',test$test,"|"))
system("chmod u=-x,g-x,o-rwx /...pathToYourApp..../data")
system("chmod u=-x,g-x,o-rwx /...pathToYourApp..../data/debugData.log")
, :
system("chattr +a /...pathToYourApp..../data/debugData.log")
, . ( UNIX ADMIN)
, , RStudio , (, Sublime Text ....)
, , , ,