Discussion :

[diombo]

Bonjour,
j'essaye d'exécuter un script r (fichier d'extension ".r") à partir du vba.
voici le bout de code correspondant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
Dim waitTillComplete As Boolean: waitTillComplete = True
Dim style As Integer: style = 1
Dim errorCode As Integer
Dim path As String
shell.Run """F:\GenRScripts\ANALYSE\hello.R"""

Lorsque j'exécute ces bouts de codes, le script en question est bien ouvert dans son environnement, mais il n'est pas exécuter.

Mon logiciel R se trouve à "C:\Program Files\R\R-3.0.1\bin\" et dispose de deux exécutable Rscript.exe et R.exe.
Merci d'avance

[Jean-Philippe André]

Salut,

En navigant sur les forums anglophones, il me semble que pour exécuter un script R il te faut utiliser RExcel.
Sinon je trouve

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell ("Rscript F:\GenRScripts\ANALYSE\hello.R")

[diombo]

Bonjour,
J'ai essayer votre proposition, mais cela ne marchait pas.
finalement j'ai utilisé l'instruction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shell.Run """C:\Program Files\R\R-3.0.1\bin\R.exe"" CMD BATCH --no-environ --silent --no-restore --no-save ""F:\GenRScripts\ANALYSE\hello.R"" ""F:\test-result.txt"""

Avec cette instruction, le script s'exécute. Cependant, s'il rencontre une erreur, le programme s'arrête.
Cordialement,

[diombo]

Pour une raison que j'ignore, pour que l'exécution du script continue, même en cas d'erreur, il faut mettre l'option suivante au début du script R

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

options(error=utils::dump.frames)

Cordialement,