View source: R/shiny-modules-new.R
accountPickerUI | R Documentation |
Makes a dropdown row for use for authentication with GA4 web properties.
Shiny Module for use with accountPickerUI
accountPickerUI(id, width = NULL, inColumns = FALSE)
accountPicker(id, ga_table, id_only = TRUE)
id |
Shiny id |
width |
The width of the input |
inColumns |
Whether to wrap selectInputs in width=4 columns |
ga_table |
A table GA4 accounts/web properties from |
id_only |
Whether to return just the id, not the row |
If id_only=FALSE, the row of ga_table for the selected GA4 web property e.g. use ga_table$propertyId
to send to ga_data calls. If id_only=TRUE, just the propertyId
Other Shiny modules:
authDropdownUI()
,
authDropdown()
,
metricDimensionSelectUI()
,
multi_selectUI()
,
multi_select()
## Not run:
ui <- fluidPage(title = "Shiny App",
accountPickerUI("auth_menu", inColumns = TRUE))
server <- function(input, output, session){
token <- gar_shiny_auth(session)
accs <- reactive({
req(token)
ga_account_list("ga4")
})
# module for authentication
property_id <- accountPicker("auth_menu", ga_table = accs, id_only = TRUE)
}
shinyApp(gar_shiny_ui(ui, login_ui = silent_auth), server)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.