inst/examples/test_app/server.R

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)
Tychobra/polishedapi documentation built on July 19, 2020, 11:41 p.m.