Question

我一直在尝试在vb6中创建一个读取R中脚本的函数，这个脚本读取xlsx，用于作业。

然而，当我运行该程序时，会出现一个黑屏并关闭，并且不会生成任何内容。我附上了代码

VB

 Dim dir1, dir2 As String
        dir1 = "C:\example"  'example folder route
        dir2 = "C:\example2"  'example folder2 route
        dir1 = Replace(dir1, "\", "/")
        dir2 = Replace(dir2, "\", "/")


        Dim proc = New Process
        proc.StartInfo.FileName = "C:\Program Files\R\R-3.3.2\bin\i386\Rscript.exe"
        proc.StartInfo.WorkingDirectory = "C:\Program Files\R\R-3.3.2\bin\i386"
        proc.StartInfo.Arguments = "C:\example.R" + " " + dir1 + " " + dir2
        proc.StartInfo.UseShellExecute = True
        proc.StartInfo.RedirectStandardOutput = False
        proc.Start()

RSCRIPT

#generate .txt  for test
    library("readxl")
    sink('C:/hello.txt',append=F,type="output")
    cat('Hello World')
    var1<-5^3
    var2<-7^3
    cat('\nThe result of ',var1,'to',var2,'is',var1+var2)

#acept parameters of vb
    args<-commandArgs(trailingOnly=T)
    CD<-as.character(args[1])
    ROOT<-as.character(args[2])

#read excel file
    data2<-read_excel("test.xlsx", sheet = 2)

从vb中读取Rscript中的xlsx文件

0 个答案: