inst/demo_app/www/script/server.md

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

    res_auth <- secure_server(
        check_credentials = check_credentials(
            "database.sqlite",
            passphrase = "passphrase_wihtout_keyring"
        )
    )

    # user info
    output$auth_output <- renderPrint({
        reactiveValuesToList(res_auth)
    })

    # shinymanager input
    output$shinymanager_language <- renderPrint({
        input$shinymanager_language
    })

    output$shinymanager_where <- renderPrint({
        input$shinymanager_where
    })

}


Try the shinymanager package in your browser

Any scripts or data that you put into this service are public.

shinymanager documentation built on Sept. 27, 2022, 9:06 a.m.