将参数从VBS传递给R.

Question

I have an R-script, which runs a VBS.

VB-Script should pass arguments back to R.

I created the codes, but passed argument is still NA.

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

If the variable you try to send is a text message, you can write it to a txt file and loop from R until value of the text file not null or empty (I nerver tried to code with R) and then use the value of the text file.

(I also tried wscript.echo "MYTEXT" and run it from command line but it poped a msgbox).