Task ScheduleR не работает с определенным скриптом - PullRequest
Новая
       32

Task ScheduleR не работает с определенным скриптом

0 голосов
/ 29 июня 2019

Я пытаюсь ежедневно регистрировать Google Trends и Twitter Data для определенных акций.Я делаю это с помощью планировщика задач.Сценарий при запуске каждое утро успешно добавляет строку данных в CSV.

Я могу успешно использовать планировщик задач для запуска очень простого сценария («Сценарий 1» ниже) по расписанию, но яневозможно получить более сложный сценарий («Сценарий 2» ниже) для выполнения по расписанию с использованием точно таких же методов.Кажется, в Script 2 есть что-то, что мешает ему успешно работать через планировщик задач.

Я пытался запланировать задачу, используя оба метода, описанных ниже (из Task ScheduleR и из Windows Task Scheduler)

https://cran.r -project.org / web /packages / taskscheduleR / readme / README.html

https://www.r -bloggers.com / как запустить планировщик r-from-the-Task-Scheduler /

Я также определил, что есть проблема со сценарием, а не с планировщиком задач, так как я могу успешно запустить «Скрипт 1» (ниже) для работы с обоими методами планировщика задач, и он успешно генерирует CSVфайл.Однако, когда я пытаюсь запустить «Сценарий 2» (ниже) с помощью любого из методов планировщика задач, он не создает файл CSV.

Наконец, я убедился, что когда я запускаю «Сценарий 2» вручную, он генерирует CSV просто отлично.

Скрипт 1 

data<-data.frame("1","2")
data
setwd("C:/Apps/Apple")
write.csv2(data, file=paste0("test.data", Sys.Date(), ".xlsx"))

Скрипт 2 


library("taskscheduleR")
library("stringi")
library("NLP", lib.loc="~/R/win-library/3.3")
library("twitteR", lib.loc="~/R/win-library/3.3")
library("syuzhet", lib.loc="~/R/win-library/3.3")
library("tm", lib.loc="~/R/win-library/3.3")
library("SnowballC", lib.loc="~/R/win-library/3.3")
library("stringi", lib.loc="~/R/win-library/3.3")
library(syuzhet)
library("topicmodels")
library("syuzhet", lib.loc="~/R/win-library/3.3")
library("ROAuth")
library("tm")
library(gtrendsR)
library(twitteR)

gtrendsdata.APPL.Apple<-gtrends(keyword=c("APPL","Apple"),time="now 1-d",onlyInterest=TRUE)
APPL.Apple.Searches<-sum(gtrendsdata.APPL.Apple$interest_over_time$hits)
APPL.Apple.Searches

gtrendsdata.How.To.Buy.Apple<-gtrends(keyword=c("How To Buy Apple"),time="now 1-d",onlyInterest=TRUE)
How.To.Buy.Apple.Searches<-sum(gtrendsdata.How.To.Buy.Apple$interest_over_time$hits)
How.To.Buy.Apple.Searches

gtrendsdata.Buy.Apple<-gtrends(keyword=c("Buy Apple"),time="now 1-d",onlyInterest=TRUE)
Buy.Apple.Searches<-sum(gtrendsdata.Buy.Apple$interest_over_time$hits)
Buy.Apple.Searches

consumer_key <-NULL
consumer_secret <-NULL
access_token <-NULL
access_secret <-NULL
setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)

tweets_APPL<-searchTwitter("#APPL",n=1000,lang="en")
APPL_tweets<-twListToDF(tweets_APPL)
APPL_text<-tolower(APPL_tweets$text)
APPL_text <- gsub("rt", "", APPL_text)
APPL_text <- gsub("@\\w+", "", APPL_text)
APPL_text <- gsub("[[:punct:]]", "", APPL_text)
APPL_text <- gsub("http\\w+", "", APPL_text)
APPL_text <- gsub("[ |\t]{2,}", "", APPL_text)
APPL_text <- gsub("^ ", "", APPL_text)
APPL_text <- gsub(" $", "", APPL_text)
mysentiment_APPL<-get_nrc_sentiment((APPL_text))
APPL.Negative<-sum(mysentiment_APPL$negative)
APPL.Positive<-sum(mysentiment_APPL$positive)

tweets_Apple<-searchTwitter("#Apple",n=1000,lang="en")
Apple_tweets<-twListToDF(tweets_Apple)
Apple_text<-tolower(Apple_tweets$text)
Apple_text <- gsub("rt", "", Apple_text)
Apple_text <- gsub("@\\w+", "", Apple_text)
Apple_text <- gsub("[[:punct:]]", "", Apple_text)
Apple_text <- gsub("http\\w+", "", Apple_text)
Apple_text <- gsub("[ |\t]{2,}", "", Apple_text)
Apple_text <- gsub("^ ", "", Apple_text)
Apple_text <- gsub(" $", "", Apple_text)
Apple_text_corpus <- VCorpus(VectorSource(Apple_text))
mysentiment_Apple<-get_nrc_sentiment((Apple_text))
Apple.Negative<-sum(mysentiment_Apple$negative)
Apple.Positive<-sum(mysentiment_Apple$positive)

date<-Sys.Date()
date<-substr(date,6,10)
row<-data.frame(date,APPL.Apple.Searches,How.To.Buy.Apple.Searches,Buy.Apple.Searches,APPL.Positive,APPL.Negative,Apple.Positive,Apple.Negative)
names(row)<-c("Date","APPL or Apple Searches","How to Buy Apple Searches","Buy Apple Searches","APPL Positive", "APPL Negative", "Apple Positive", "Apple Negative")
row

data<-read.csv("data.csv")
data
data<-data[-c(1)]
names(data)<-c("Date","APPL or Apple Searches","How to Buy Apple Searches","Buy Apple Searches","APPL Positive", "APPL Negative", "Apple Positive", "Apple Negative")
data

data<-rbind(data,row)
data

setwd("C:/Apps/Apple")

write.csv(data,"data.csv")

Фактические результаты: файл CSV не создается.Ожидаемый результат заключается в том, что csv генерируется при запуске «сценария 2» с планировщиком задач.

...