chan-ume

// @ts-nocheck
var TOAL_COUNT_SHEET_NEME = "視聴回数"
var EACH_DAY_COUNT_SHEET_NEME = "日ごとの視聴回数"
var HEADER_ROW = 1
var VIDEO_NAME_COLUMN = 1
var VIDEO_ID_COLUMN = 2
var SLACK_URL = "https://hooks.slack.com/services/XXXXXXXXXXXXXXXXXXXXXX"
var CHANNEL_NAME = "#test"

function updateSheets(){

chan-ume

library(shiny)

shinyServer(function(input, output) {
   
  output$distPlot <- renderPlot({
    
    x <- iris[, input$numericInputData] 
    bins <- seq(min(x), max(x), length.out = input$sliderInputData + 1)
    
    hist(x, breaks = bins, col = 'darkgray', border = 'white')

chan-ume

var token = "XXXXXXX";//Slackで生成されたTokenを貼り付ける

function doPost(e) {
  if (token != e.parameter.token) {
    return 
  }
  var text = e.parameter.text;
    
  var textForSlack = getAnalyticsData(text);
  var res = {"response_type": "in_channel", "text": textForSlack};

chan-ume

var token = "XXXXXXXXXXXXXXX";//Slackで生成されたTokenを貼り付ける

function doPost(e) {
  if (token != e.parameter.token) {
    return 
  }
  var text = e.parameter.text;
    
  var textForSlack = getAdsenseData(text);
  var res = {"response_type": "in_channel", "text": textForSlack};

chan-ume

library(shiny)
library(googleAuthR)
library(googleAnalyticsR)
library(listviewer)
library(ggplot2)
library(gridExtra)
library(Rmisc)
library(dplyr)
library(ReporteRs)
library(rJava)

chan-ume

library(shiny)
library(googleAuthR)
library(googleAnalyticsR)
library(listviewer)
library(ggplot2)
library(gridExtra)
library(Rmisc)

options(shiny.port = 1221)
options(googleAuthR.webapp.client_id = "")

chan-ume

library(shiny)
library(googleAuthR)
library(googleAnalyticsR)
library(listviewer)
library(ggplot2)
library(gridExtra)
library(Rmisc)

navbarPage("疑似query explorer",
           tabPanel("Google アカウント連携", tabName = "setup", icon = icon("cogs"),

chan-ume

library(shiny)
library(googleAuthR)
library(googleAnalyticsR)
library(listviewer)

navbarPage("疑似query explorer",
           tabPanel("Google アカウント連携", tabName = "setup", icon = icon("cogs"),
                    h1("Setup"),
                    googleAuthUI("Google_login"),
                    authDropdownUI("viewId_select")

chan-ume

library(shiny)
library(googleAuthR)
library(googleAnalyticsR)
library(listviewer)
library(ggplot2)

options(shiny.port = 1221)
options(googleAuthR.webapp.client_id = "先程作成したクライアントIDをコピペ")
options(googleAuthR.webapp.client_secret = "先程作成したクライアントシークレットをコピペ")
options(googleAuthR.scopes.selected = c("https://www.googleapis.com/auth/analytics.readonly"))

chan-ume

## インストールがまだの場合は下記のコメントを外してそれぞれインストール
#install.packages("rvest", dependencies=T)
#install.packages("dplyr", dependencies=T)
#install.packages("jsonlite", dependencies=T)
#install.packages("stringr", dependencies=T)
#install.packages("magrittr", dependencies=T)

# ライブラリの読み込み
library(rvest)
library(dplyr)