Shiny Authentication - очистить имя пользователя / пароль после выхода из системы - PullRequest
Новая
       56

Shiny Authentication - очистить имя пользователя / пароль после выхода из системы

0 голосов
/ 21 февраля 2019

Прежде всего, я не опытный разработчик, я просто статистик, открывающий мир R-Shiny, и я поражен тем, что может сделать блестящий.

Я разрабатываю приложение с параметрами аутентификации и нахожу PaulC91 (github) app.

Его код: 

    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)

Работает очень хорошо, но имя пользователя и пароли все еще на странице выхода созданы (хотелось быпропуски).

Я полагаю, что есть способ очистить строки имени пользователя и пароля после нажатия кнопки выхода из системы (или просто возможность добавить модуль, но я пока что не совсем понял) ..

Спасибо

...