inst/examples/polished_example_02/server.R

In Tychobra/polished: Authentication and Hosting for 'shiny' Apps

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

  output$secure_content <- renderPrint({
    session$userData$user()
  })


  observeEvent(input$sign_out, {

    sign_out_from_shiny(session)
    session$reload()

  })
}

secure_server(
  server,
  custom_sign_in_server = sign_in_module_2
)