从批处理文件执行rga.open（instance =＆＃34; ga＆＃34;，where =＆＃34;〜/ ga.rga＆＃34;）时出错

时间：2014-06-17 15:18:59

标签： r batch-file google-analytics

我正在尝试通过批处理文件运行r脚本，以便我可以安排R脚本定期运行。 R脚本从Google Analytics检索数据并将数据转储到SQL Server数据库中。

R脚本在R Studio下运行完全正常但是当我尝试通过批处理文件执行相同的R脚本时，它无法提供此错误 -

＆＃34; body_config（body，multipart）出错：找不到对象redirect.uri 调用rga.open ... modify_config - ＆gt; setdiff - ＆gt; as.vector - ＆gt; body_config 执行暂停＆＃34;

我的批处理文件如下所示： ＆＃34; C：\ Program Files \ R \ R-3.0.2 \ bin \ Rscript.exe＆＃34; ＆＃34; C：\ Users \ sc \ Documents \ R Sources \ SocialMedia \ ExtractBlogStats.r＆＃34; 暂停

我的Rscript看起来像：

library(devtools)

#install_github("rga", "skardhamar")
library(rga)

#install.packages("RODBC")
library(RODBC)

myconn <- odbcDriverConnect('driver={SQL Server};server=localhost;database=SocialMedia;trusted_connection=true')


options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))

#rga.open(instance="ga")


rga.open(instance="ga", where="~/ga.rga")


id <- "XXXXXXXX" # Valid ID in actual script file

end <- Sys.Date() - 1
start <- end - 1

by.practice <- ga$getData(id, start.date = start, end.date= end, 
                        metrics = "ga:sessions,ga:totalEvents",
                        dimensions = "ga:eventAction",
                        sort = "",
                        filters = "",
                        segment = "",
                        start = 1,
                        max = 1000)

2 个答案:

答案 0 :(得分：0)

步骤： a）在RStudio中执行了rga.open（instance =“ga”）

b）导致我找到一个URL并生成代码

c）在RStudio控制台中粘贴代码

d）在本地文件系统上保存ga对象 - save（ga，file =“C：/ Users / sc / Documents / R 来源/ SocialMedia / ga.rga“）

e）从函数中删除了rga.open调用 - extract.blog.stats.by.practice（）

extract.blog.stats.by.practice = function(id = "XXXXXXX") {
library(devtools)
library(rga)
library(RODBC)
myconn <- odbcDriverConnect('driver={SQL Server};server=localhost;database=SocialMediaSink;trusted_connection=true')

options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))

#rga.open(instance="ga")
setwd("C:/Users/sc/Documents/R Sources/SocialMedia")

end <- Sys.Date() - 1
start <- end - 1

by.practice <- NULL

by.practice <- ga$getData(id, start.date = start, end.date= end, 
                        metrics = "ga:sessions,ga:totalEvents",
                        dimensions = "ga:eventAction",
                        sort = "",
                        filters = "",
                        segment = "",
                        start = 1,
                        max = 1000)


# Convert Numeric To Integer
practice <- by.practice[,1]
sessions <- as.integer(by.practice[,2])
totalEvents <- as.integer(by.practice[,3])

# Create a dataframe that mimics the structure of the database table - BlogPracticeStats
practice.stats <- data.frame(practice, end, sessions, totalEvents, stringsAsFactors = FALSE)

# Assign columnnames that match the table's column name in the database
colnames(practice.stats) <- c("Practice", "Date", "Sessions", "TotalEvents")

# Insert rows in the table
sqlSave(myconn, practice.stats, "BlogPracticeStats", safer = FALSE, append = TRUE, rownames = FALSE)
odbcClose(myconn)

 }

f）在RunFunction.r

中包含来自本地保存副本的“ga” 
source("C:/Users/sc/Documents/R Sources/SocialMedia/ExtractBlogPracticeStats.R")
load("C:/Users/sc/Documents/R Sources/SocialMedia/ga.rga")
extract.blog.stats.by.practice()

g）执行的批处理文件

"C:\Program Files\R\R-3.0.2\bin\Rscript.exe" "C:\Users\sc\Documents\R Sources\SocialMedia\RunFunction.r"
pause

答案 1 :(得分：0)

我想发布整个解决方案 -

第1步 - 创建初始身份验证对象

#Initial Objects
# dev tools is needed because we need to use it's function install_github

# install.packages("devtools")
library(devtools)

# install_github("rga", "skardhamar")
library(rga)

library(RODBC)

config.folder.location <- "C:\\Users\\sc\\Documents\\R Sources\\SocialMedia\\Config"

working.directory <- config.folder.location

rga.open(instance="ga")

save(ga, file="C:/Users/sc/Documents/R Sources/SocialMedia/config/ga.rga")


connection.string <- 'driver={SQL Server};server=localhost;database=SocialMedia;trusted_connection=true'

save(connection.string,  file = paste0(config.folder.location,'\\connection.string '))


# Google Analytics ID for ur site
google.analytics.id <- "XXXXXX"

save(google.analytics.id, file="google.analytics.id")

第2步 - 查询Google Analaytics 

# dev tools is needed because we need to use it's function install_github
# install.packages("devtools")
library(devtools)

# install_github("rga", "skardhamar")
library(rga)

# install.packages("RODBC")
library(RODBC)


#*********************************************************************************************************************
# Read arguments and store them in variables -- START
#*********************************************************************************************************************
args <- commandArgs(trailingOnly = TRUE)

# First argument is read as working directory (location where config folder resides)
working.directory <- as.character(args[1])

if (length(args) >= 2){
  # Second argument is used as start date in GA Query
  start <- as.Date(args[2])
}else{
 start <- Sys.Date() - 1
}

if (length(args) == 3){
# Third argument is used as end date in GA Query  
 end <- as.Date(args[3]) 
}else{
 end <- start
}

#*********************************************************************************************************************
# Read arguments and store them in variables -- END
#*********************************************************************************************************************

#*********************************************************************************************************************
# Use arguments values to setup the environment and load initial objects -- START
#*********************************************************************************************************************

# Set working directory to the passed value
setwd(working.directory)

# load Google Analytics ID from Config folder
load("google.analytics.id")

# Load SQL Connection String
load("connection.string")

options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))

# load pre-authentcated Google Analytics object "ga"
load("ga.rga")

# Check if the ga token has expired. If it has then refersh token.
if (ga$isTokenExpired()){
  ga$refreshToken()
}

#*********************************************************************************************************************
# Use arguments values to setup the environment and load initial objects -- END
#*********************************************************************************************************************

# Runs Google Analytics query for the provided id and limits data by date (i.e., start.date = date and end.date = date)
# Wrapped in try/catch to handle scenarios when GA does not return any rows



blog.stats = tryCatch({
 ga$getData(google.analytics.id, 
            start.date = start, 
            end.date = end, 
            metrics = "ga:sessions, ga:users, ga:newUsers, ga:sessionDuration, ga:timeOnPage, ga:pageviews",
            dimensions = "ga:date, ga:pageTitle, ga:medium, ga:hasSocialSourceReferral, ga:source, ga:referralPath",
            sort = "",
            filters = "",
            segment = "",
            start = 1,
            max = 10000)           
 }, warning = function(w) { 
    # print("warning")
    return(NULL)
 }, error = function(e) {
    # print("error")
    return(NULL)
 }, finally = {  
    # print("inside Finally")
}
)

if(length(blog.stats)>0 ){
# Convert Numeric To Integer
  blog.stats[,"sessions"] <- as.integer(blog.stats[,"sessions"])
  blog.stats[,"users"] <- as.integer(blog.stats[,"users"])
  blog.stats[,"newUsers"] <- as.integer(blog.stats[,"newUsers"])
  blog.stats[,"sessionDuration"] <- as.integer(blog.stats[,"sessionDuration"])
  blog.stats[,"timeOnPage"] <- as.integer(blog.stats[,"timeOnPage"])
  blog.stats[,"pageviews"] <- as.integer(blog.stats[,"pageviews"])


# Assign columnnames that match the table's column name in the database
colnames(blog.stats) <- c("Date", "PageTitle", "Medium", "HasSocialSourceReferral", "TrafficSource", "ReferralPath", "Sessions", "Users", "NewUsers", "SessionDurationSeconds", "TimeOnPageSeconds", "PageViews" )

# Open a Connection
myconn <- odbcDriverConnect(connection.string)

# Prepare Delete Query
delete.query <- paste0("DELETE  FROM  GoogleAnalyticsBlogStats WHERE Date >='",start,"' AND Date <='",end,"'")

# Execute Delete Query
sqlQuery(myconn,delete.query,  errors= FALSE)


# Insert rows in the table
sqlSave(myconn, blog.stats, "GoogleAnalyticsBlogStats", safer = FALSE, append = TRUE, rownames = FALSE)

# Close the connection to the database
odbcClose(myconn)
}

步骤3 ---执行批处理文件中的Rscript

批处理文件如下所示 - 

"C:\Program Files\R\R-3.1.0\bin\Rscript.exe" "D:\Social Media Analytics\R Scripts\ExtractGoogleAnalyticsBlogStats.r" "D:\\Social Media Analytics\\R Scripts\\Config"
相关问题
最新问题