注销密码闪亮的应用程序

Question

我使用以下代码创建了一个闪亮的应用程序：password example

一切正常，但是我遇到了这个问题：

shinyServer(function(input, output, session) {
output$ui <- renderUI({   
        if (user_input$authenticated == FALSE){ 
            fluidPage(theme = shinytheme("cerulean"),
                      fluidRow(sidebarPanel(column(width = 12, includeMarkdown("./md/intro.md")),
                                            ),
                      mainPanel(column(width = 7, offset = 2,
                                       h1("please login"),
                                       uiOutput("uiLogin"),
                                       uiOutput("pass")
                                       )
                                )
                                )
                      )
          }
          else if (user_input$authenticated == TRUE){
                fileInput(inputId = "datensatz", label = "Datensatz laden"),
                 plotOutput("test6")}

这很好用，我可以使用保存在单独文件中的多个用户名和密码登录。

现在，我添加了一个注销按钮：

observeEvent(input$logout,{
    user_input$authenticated <- FALSE
    })

我可以注销，闪亮的应用程序显示登录屏幕。我的问题是：

单击登录按钮时，无需用户名或密码即可登录。凭据必须加载到某个地方，我无法确定在哪里。

有人有主意吗？