将信息打印到闪亮的服务器日志中

Question

有没有办法将信息包含/打印到闪亮的服务器日志文件中？

我正在使用一个闪亮的应用程序，其中包含一个用户登录，如果我的应用程序崩溃，我想知道是什么用户导致了这次崩溃。

我试图将它包含在我的server.R：

#PRINT FOR LOG FILE------------
cat(paste0("Username: ",userdata$name, "\n"))
cat(paste0("Datum: ",Sys.time(), "\n"))

但它不起作用。有任何想法吗？

Answer 1

将file=stderr()参数添加到您的cat：

cat(file=stderr(), paste0("Username: ",userdata$name, "\n"))
cat(file=stderr(), paste0("Datum: ",Sys.time(), "\n"))

如本文所述：

关于stderr()： 在大多数情况下cat("my output")（即打印到标准输出）可以正常工作，但在其他情况下（例如在 a 内部 renderPrint，capture.output用于重定向输出），它不会，因此我们建议始终将跟踪输出发送到stderr().

Answer 2

试试这个，假设您使用我在这里的答案作为密码

  observe({
    if (USER$Logged == FALSE) {

      output$page <- renderUI({
        div(class="outer",do.call(bootstrapPage,c("",ui1())))
      })
    }
    if (USER$Logged == TRUE) {
      output$page <- renderUI({
        div(class="outer",do.call(navbarPage,c(inverse=TRUE,title = "Contratulations you got in!",ui2())))
      })
      cat(paste0("Username: ",input$userName, "\n"))
      cat(paste0("Datum: ",Sys.time(), "\n"))
      print(ui)
    }
  })