[R] executable file with R

[Frank Samuelson]

Romain Lorrilliere wrote:
> Hi,
> 
> I made an R function, and I want make an executable applet with it. Do 
> you know how it is possible?
> 


More details about what you want would be helpful.  Here
is what I do and it may be useful to you.
Under *nix,OSX, etc use bash's "here document" feature.
Create a script like the one below and make it executable.

#!/bin/bash
  R --vanilla << "EOF"      #  Pipe all subsequent lines into R.
  ################ Put all your R code here  ###############
  X11(); plot(1:3)
  require(tcltk)
  tkmessageBox(message="hello")
  ###########################end of R code #########################
EOF


Under the M$ XP operating system I attach my code to the end
of the following script and put it in a batch file, like "runthis.bat"
Then just double click (or whatever) on the "runthis.bat" file.


@echo off

:: A batch script for running R scripts in M$ XP
:: Just attach your R script to the end of this batch file (below the
:: last ":::" comment line) and run this script.

:: A portion of this file was taken from Gabor Grothendieck's
:: batchfiles http://cran.r-project.org/contrib/extra/batchfiles/
:: Copyright by Gabor Grothendieck 2005, GPL v2

setlocal
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: I could not get this to work on M$ 2k
ver | findstr XP >NUL
if errorlevel 1 echo Warning: This script only works on Windows XP.

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Find R.
:: use environment variable R_HOME if defined
:: else current folder if bin\rcmd.exe exists
:: else most current R as determined by registry entry
:: else error, not found.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if not defined R_HOME if exist bin\rcmd.exe set R_HOME=%CD%
if not defined R_HOME for /f "tokens=2*" %%a in (
  'reg query hkcu\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
  ) do set R_HOME=%%~b
if not defined R_HOME for /f "tokens=2*" %%a in (
  'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
   ) do set R_HOME=%%~b
if not defined R_HOME echo Error: R not found. Please install R (www.r-project.org). & pause & exit /b

set cmdpath=%R_HOME%\bin\R.exe
set thisfile=%~f0

:: Run R.  Make it parse the commands at the end of this file
echo x=readLines(Sys.getenv('thisfile'));eval(parse(text=x[-(1:grep('Put R code below',x)[2])]))  | "%cmdpath%" --vanilla

endlocal
exit /b

:::::::::::::::::::  Put R code below this line :::::::::::::::::::::

library(tcltk)   # My example R code
windows(); plot(1:3)
tkmessageBox(message="hello")
q()