## Not run:
# ## server.r
# shinyServer(function(input, output, session) {
#
# renderAuthDropdownRow(ga.table = ShinyMakeGAProfileTable(),
# input = input,
# session = session)
#
# }
#
# ## ui.r
#
# library(shinydashboard)
# dashboardBody(authDropdownRow(),
# metricSelect())
#
# ## End(Not run)
Run the code above in your browser using DataLab