我有一个调用多个R脚本的python脚本,到目前为止,我可以成功传递单个和多个变量,要求R读取并执行它。我当前的方法非常粗糙,仅在传递字符串时失败,并以数字失败。有没有有效的方法来完成此任务?
#### Python Code
import subprocess
def rscript():
r_path = "C:/.../R/R-3.3.2/bin/x64/Rscript"
script = "C:/.../test.R"
#The separators are not recognized in R script so commas are added for splitting text
a_list = ["C:/SomeFolder,", "abc,", "25"]
subprocess.call ([r_path, script, a_list], shell = True)
print 'Script Complete'
#Execute R Function
rscript()
#### R Code
options(echo=TRUE)
args <- commandArgs(trailingOnly = TRUE)
print(args)
args1 <- strsplit(args,",") #split the string argument with ','
args1 <- as.data.frame(args1)
print(args1)
path <- as.character(args1[1,])
abc <- as.character(args1[2,])
number <- as.numeric(args1[3,])
print (path)
print (abc)
print (number)
write.table(path, file = "C:/path.txt", row.names = FALSE)
write.table(abc, file = "C:/abc.txt", row.names = FALSE)
write.table(number, file = "C:/number.txt", row.names = FALSE)
#### R - Output
> print (path)
[1] "C:/SomeFolder"
> print (abc)
[1] "abc"
> print (number)
[1] 1
最佳答案
您应将[r_path, script]
与a_list
连接起来以生成平面列表。
脚本
options(echo=TRUE)
args <- commandArgs(trailingOnly = TRUE)
print(args)
Python代表
>>> commands = ["rscript", "script.R"]
>>> args = ["C:/SomeFolder", "abc", "25"]
>>> subprocess.call(commands + args, shell=True)
> args <- commandArgs(trailingOnly = TRUE)
>
> print(args)
[1] "C:/SomeFolder" "abc" "25"