Synapse Oauth Module — mod_synapse_oauth

Create the Synapse OAuth component of a Shiny app.

If this is the first time signing in, will need to do OAuth the process. The OAuth process will redirect back here and an authorization code should be in the URL parameters. If this code is available, lauch the main app_ui. This function should be called from startup called from the UI function specified when creating the application object (i.e. the function specified in the `ui` parameter here `shinyApp(ui = app_ui, server = app_server)`), which receives the `request` object and can pass it along.

IMPORTANT: this module assumes the following global variables are available and valid: app, api, authorization_url, app_url, claims_params, scope. See setup_global_oauth_vars.

mod_synapse_oauth_ui(id, request, main_ui = mod_main_ui, main_ui_id = "main")

mod_synapse_oauth_server(id, syn)

Arguments

id: The module id.
request: Shiny request object.
main_ui: UI function to redirect to when OAuth is done. Defaults to mod_main_ui.
main_ui_id: The module id to use when launching `main_ui`. Defaults to "main".
syn: Synapse client object

Examples

if (FALSE) {
library("dccvalidator")
app_ui <- function(request) {
  mod_synapse_oauth_ui(id = "oauth", request = request)
}
app_server <- function(input, output, session) {
  synapse <- reticulate::import("synapseclient")
  syn <- synapse$Synapse()
  syn <- mod_synapse_oauth_server(
    id = "oauth",
    syn = syn
  )
  shiny::req(inherits(syn, "synapseclient.client.Synapse"), logged_in(syn))
}
run_app()
}