VBSからRへの引数の受け渡し

Question

私はVBSを実行するRスクリプトを持っています。

VBスクリプトは、私はコードを作成しますが、引数がまだNAで渡さR.

に戻って引数を渡す必要があります。

R：

path <- "C:\\Users\\PD\\Desktop\\Dashboard Citi R\\test\\scripcik.vbs" 

shell(shQuote(normalizePath(path)), "cscript", flag = "//nologo") 

args<-commandArgs(TRUE) 
myvar<-args[1] 
print(myvar) 

VBS：

dim myArr 
Dim shell 
Set shell = CreateObject("WScript.Shell") 
chartpath6 = "C:\Users\PD\Desktop\Dashboard Citi R\test\bazy\" & myDate(now) & ".accdb" 
chartpath5 = "C:\Users\PD\Desktop\Dashboard Citi R\test\bazy\" & myDate(now)-1 & ".accdb" 

myArr = Array(chartpath6,chartpath5) 

for i = 0 to 1 
    ReportFileStatus(myArr(i)) 
next 

sub ReportFileStatus(filespec) 
    Dim fso, msg 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    If (fso.FileExists(filespec)) Then 
     msg = filespec & " exists." 
    Else 
     msg = filespec & " doesn't exist." 
    End If 
    msgbox msg 
End sub 

Function myDate(dt) 
    dim m,y 
    m = right("0" & datePart("m",dt),2) 
    y = datePart("yyyy",dt) 
    myDate= y & m 
End Function 

Dim path 

path = "Rscript C:\Users\PD\Desktop\Dashboard Citi R\test\runR.R " & msg 

shell.Run(path) 

Answer 1

あなたが送信しよう変数はテキストメッセージである場合、あなたはtxtファイルに書き込むことができますRからテキストファイルの値がヌルまたは空でないまでループする（私はnerverがRでコードしようとした）、そしてteの値を使用するxtファイル。

（私もwscript.echo "MYTEXT"を試してコマンドラインから実行しましたが、msgboxがポップされました）。