闪亮的身份验证-注销后清除用户名/密码

Question

首先，我不是一个经验丰富的开发人员，只是一个发现R-Shiny世界的统计学家，而我对所有闪亮的功能都感到惊讶。

我开发了一个具有身份验证参数的应用程序，并找到了PaulC91 (github)应用程序。

他的代码：

    library(shiny)
    library(shinyauthr)
    library(shinyjs)

    # dataframe that holds usernames, passwords
    user_base <- data.frame(
     user = c("user1", "user2"),
     password = c("pass1", "pass2"), 
     stringsAsFactors = FALSE
    )

    ui <- fluidPage(
    # must turn shinyjs on
    shinyjs::useShinyjs(),
    # add logout button UI 
    div(class = "pull-right", shinyauthr::logoutUI(id = "logout")),
    # add login panel UI function
    shinyauthr::loginUI(id = "login"),
    )

    server <- function(input, output, session) {


    credentials <- callModule(shinyauthr::login, 
                            id = "login", 
                            data = user_base,
                            user_col = user,
                            pwd_col = password,
                            log_out = reactive(logout_init()))

    logout_init <- callModule(shinyauthr::logout, 
                            id = "logout", 
                            active = reactive(credentials()$user_auth))


    }

    shinyApp(ui = ui, server = server)

效果很好，但是用户名和密码仍在“退出页面”中创建（我想输入空白）。

我想一旦按下注销按钮，就有一种清除用户名和密码行的方法（或者只是一个添加模块的选项，但是我还不了解）。

谢谢