我有一个调用多个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"

10-05 20:36
查看更多