apps/oauth_app2.R

In Sage-Bionetworks/projectliveModules: Modules for Project Live shiny apps

devtools::load_all(".")

if (interactive()) {
  options(shiny.port = 8100)
}

OAUTH_LIST <- create_oauth_list(
  config_file = "../inst/oauth_config.yaml",
  claims_list = list(
    "userid" = NULL, "team" = list("values" = c(1, 2, 3))
  )
)

ui <- function(req) {
  ui_function <- function(){
    shiny::tagList(
      shiny::uiOutput("title")
    )
  }
  oauth_ui(req, ui_function, OAUTH_LIST)
}

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

  access_token = get_oauth_access_token(
    oauth_list = OAUTH_LIST, session = session
  )

  if(!is.null(access_token)){
    response <- get_oauth_request_with_token(access_token)
    teams <- response$team
  }

  synapseclient <- reticulate::import("synapseclient", delay_load = TRUE)
  syn <- synapseclient$Synapse()
  syn$login(authToken = access_token)

  output$title <- shiny::renderUI({
    shiny::titlePanel(stringr::str_c(
      "Welcome, ",
      syn$getUserProfile()$userName,
      ". Teams = [",
      stringr::str_c(teams, collapse = ", "),
      "]"
    ))
  })

}

shiny::shinyApp(ui, server)