Question

我想安排一个R脚本，该脚本可以通过Rstudio正常工作。但是，当尝试使用Rscript运行脚本时，出现错误。该脚本在csv文件中采用一些参数，并尝试在opentsdb上收集数据。

library(devtools)
install_local("/home/me/Downloads/opentsdbr-master")
install_local("/home/me/Downloads/nomalyDetection-master")
install_local("/home/me/Downloads/anomalydots", force="TRUE")
install_local("/home/me/Downloads/RAD")
library(reticulate)
library(anomalydots)
lbrary('methods')

l <- read.csv(file = "/home/bbtex/Downloads/metrics_list.csv", sep = ",")
n <- length(l$metrics)
for (i in 1:n){
  tag=as.character(l$tags[i])
  metric=as.character(l$metrics[i])
  tag=eval(parse(text=paste("c(",tag,")",sep="")))
  newdata=getTsOpenTSDBOptimized(metric=metric,hostname="opentsdb-read.intcs.meshcore.net",port=4242,downsample=10,endDate=as.character(Sys.Date()),agg=l$agg[i],tags=tag)
  newdata = anomalydots::fillHoles2(newdata)
  newdata = anomalydots::timeSeriePreparation(newdata)
  timeseries[[i]] <- newdata
}
print ("Upload completed successfully")

当我使用Rscript运行以下代码时，出现以下错误：

tsd_get_ascii中的错误（指标，间隔，标签，agg，比率，下采样，：调用：getTsOpenTSDBOptimized-> getTsOpenTSDB-> tsd_get-> tsd_get_ascii 另外：警告消息： 1：在tsd_get_ascii（指标，间隔，标签，聚合，速率，下采样，响应码503 2：在tsd_get_ascii（指标，间隔，标签，agg，速率，下采样，网址：http://opentsdb-read.intcs.meshcore.net:4242/q?start=2018%2F10%2F19-02%3A00%3A00&m=avg%3A600s-sum%3Adb.mysql.threads_connected%7Bhost%3Dbpct4005s%7D&end=2018%2F10%2F22-01%3A59%3A59&ascii= 执行停止

当我点击错误中的链接时，可以看到打印在网页中的数据。预先感谢您的帮助

脚本可以在Rstudio中正常工作，但不能在Rscript中工作

0 个答案: