{"Package":"shinyga","Type":"Package","Title":"Easier Google Authentication in Shiny","Version":"0.1.2.9001","Date":"2015-03-07","Author":"person(\"Mark\", \"Edmondson\", email = \"shinyga@markedmondson.me\", role = c(\"aut\", cre))","Maintainer":"Mark Edmondson ","Description":"This package adds functions to be used within a Shiny project, that quickstart\nimporting and displaying Google Analytics data.","License":"MIT","Imports":"\nhttr (>= 0.6.1),\nshiny (>= 0.11.1),\nshinydashboard (>= 0.2.2),\nstringr (>= 0.6.2),\nRcpp (>= 0.11.5),\njsonlite (>= 0.9.15)","readme":"# shinyga (Shiny Google Authentication)\nEasier Google Authentication Dashboards in Shiny.\n\nThe functions in the package were used to help create these demo apps:\n\n* [GA Effect dashboard](http://markedmondson.me/how-i-made-ga-effect-creating-an-online-statistics-dashboard-using-reais)\n* [GA Rollup dashboard](https://mark.shinyapps.io/ga-rollup/)\n* [GA Meta](https://mark.shinyapps.io/ga-meta/)\n\n**Get in touch if you have any dashboards made with this package to get a link from here**\n\n# !Deprecated!\n\nI would now recommend that for Shiny apps using Google Analytics to use [`googleAnalyticsR`](https://github.com/MarkEdmondson1234/googleAnalyticsR_public) as it has more features and is compatible with other Google APIs written with [`googleAuthR`](https://github.com/MarkEdmondson1234/googleAuthR).\n\nNo new features will be added to `shinyga()`\n\n\n## Change history\n\n### Dev version\n* Integrating googlesheets authentication\n* GA users.\n\n### Version 0.1.2 - May 25th 2015\n* Added GA filters, custom metrics, Adwords API listings\n\n### Version 0.1.1 - March 27th 2015\n* Fixed bug where older GA accounts couldn't fetch segments or goals.\n* Port everything to httr, get rid of RCurl, RJSONIO \n* Segments will default to default GA ones if it can't find or parse yours\n* Removed need for redirect URL in Auth macro, Shiny will detect App URL from session info.\n\n### Version 0.1.0 - March 18th 2015\n* Initial Release\n\n## Help \nPlease tell me any bugs or problems with examples or documentation in the [issue tracker](https://github.com/MarkEdmondson1234/shinyga/issues)\n\nMost functions have help files, start with ?shinyga\n\nThe package focused on quick setup of Google Authentication APIs, with initial focus on Google Analytics, so please keep that in mind when asking for features. \n\n## What shinyga does\n\nProvides utility functions to help easily setup up a Google API authentication flow in Shiny. The focus is on Google Analytics initially, with macros to help easy download of GA data, but to be expanded later into other Google APIs such as Google Tag Manager, Gmail, BigQuery etc.\n\n## Installation\n\n library(devtools)\n \n ## install shinydashboard dependency\n devtools::install_github(\"rstudio/shinydashboard\")\n \n ## install shinyga\n devtools::install_github(\"MarkEdmondson1234/shinyga\")\n \n library(shiny)\n library(shinydashboard)\n library(shinyga)\n \n ?shinyga\n\n# To Use\n\n## Get Google API credentials\n\nGet your client secret, ID from the [Google API console](https://ga-dev-tools.appspot.com/explorer/)\n\n* Create a Project\n* Go to APIs & Auth - Activate the appropriate Google API (only necessary for Analytics atm)\n* Go to APIs & Auth - Credentials.\n* Create new Client ID for web application\n* Note your Client ID and Client secret\n* Put the URL of your app in the Redirect URIs, one per line. See below.\n* Fill in some details on your consent screen\n\n### Client URL: Running Locally\nFor local the Shiny runApp() uses a random port, so specify using runApp(port=1234) and put that in the Google API console as your port number e.g. http://127.0.0.1:1234\n\n### Client URL: Running on Shiny Server or Shinyapps.io\nIf you use the doAuthMacro() functions it will detect your app URL for you, otherwise you will need to specify it via the redirect.uri parameter in the underlying authentication functions. \n\nUse the URL where your app is published as your CLIENT_URL. You can put both your local and live URL in the Google API console. \n\nTIP: Comment out the local one when you are ready to deploy. e.g. https://mark.shinyapps.io/ga-effect/\n\n## Run Shiny\n\nRead how to use [Shiny apps](http://shiny.rstudio.com/) before using this package. \n\nThis package also uses [shinydashboard](http://rstudio.github.io/shinydashboard/) to make the pretty layout, but its not strictly necessary.\n\n# Shiny App Code Examples\n\nExamples of minimal working examples are shown below, for you to adapt. \n\n## Google Analytics\n \n ###### server.r\n \n library(shiny)\n library(shinydashboard)\n library(shinyga)\n \n securityCode <- createCode()\n \n shinyServer(function(input, output, session){\n \n ## returns list of token and profile.table ----------------------------------\n auth <- doAuthMacro(input, output, session,\n securityCode,\n ## client info taken from Google API console.\n client.id = \"xxxxx.apps.googleusercontent.com\",\n client.secret = \"xxxxxxxxxxxx\",\n type = \"analytics\")\n \n ## auth returns auth$table() and auth$token() to be used in API calls.\n \n ## get the GA data ----------------------------------------------------------\n gadata <- reactive({\n validate(\n need(auth$token(), \"Authentication needed\"))\n \n df <- auth$table()\n token <- auth$token()\n gaid <- as.character(input$view)\n \n profileRow <- df[df$id %in% gaid,] \n \n data <- rollupGA(GAProfileTable = profileRow,\n dimensions = 'ga:date',\n start_date = '2014-09-01',\n metrics = 'ga:sessions',\n end_date = '2015-03-01',\n ga = token)\n \n data[,c('date','sessions')]\n }) \n \n \n ## do a plot! ---------------------------------------------------------------\n output$gaplot <- renderPlot({\n validate(\n need(gadata(), \"Authenticate to see\"))\n \n plot(gadata(), type=\"l\") \n \n })\n \n })\n\n \n ##### ui.r\n \n library(shiny)\n library(shinydashboard)\n library(shinyga)\n\n dashboardPage(\n dashboardHeader(\n title = \"Shiny Google Authentication demo\",\n dropdownMenuOutput(\"messageMenu\")\n ),\n dashboardSidebar(\n sidebarMenu(\n menuItem(\"Tab1\", tabName = \"setup\", icon = icon(\"gears\")),\n menuItem(\"Tab2\", tabName = \"dash\", icon = icon(\"dashboard\")))\n ),\n dashboardBody(\n uiOutput(\"AuthGAURL\"),\n authDropdownRow(),\n plotOutput(\"gaplot\")\n )\n )","repoType":"github"}

Description

Usage

Arguments

Value

See Also

Examples