accountPicker UI Shiny Module - pick GA4 accounts/webProperties in Shiny
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.