將信息打印到閃亮服務器日誌中

Question

是否有方法將閃光服務器日誌文件中包含/打印信息？

我正在使用一個閃亮的應用程序，其中包括一個用戶登錄，如果我的應用程序崩潰，我想知道什麼用戶造成這次崩潰。

我想包括到我server.R此：

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

但它不工作。 任何想法？

Answer 1

試試這個，假設你使用我的答案在這裏爲password

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) 
    } 
    })