R/shiny-modules-new.R
accountPicker.Rd
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)
Shiny id
The width of the input
Whether to wrap selectInputs in width=4 columns
A table GA4 accounts/web properties from ga_account_summary("ga4")
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()
if (FALSE) {
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)
}