R Shiny

library(shiny)

ui <- fluidPage(
  titlePanel("My Shiny App"),
  sidebarLayout(
    sidebarPanel(
      uiOutput("output")
    ),
    mainPanel()
  )
)

server <- function(input, output, session) {
  output$output <- renderUI({
    query <- parseQueryString(session$clientData$url_search) # (1)!
    if ("stagUserTicket" %in% names(query)) {
      HTML(paste("stagUserTicket: ", query$stagUserTicket))
    } else {
      HTML('<a href="https://ws.ujep.cz/ws/login?originalURL=http://localhost:6305/">
      Přihlašte se pomocí STAGu
      </a>') # (2)!
    }
  })
}

shinyApp(ui = ui, server = server)

1. Získání query parametrů z URL adresy.
2. Odkaz na přihlášení pomocí STAGu.