R扩展：在包中调用外部脚本

Question

I'm writing an R package which, among other things, defines a function which is actually a wrapper for a PHP script. Let's assume the PHP script offers some functionality that is considerably difficult to recreate in R and that my line of reasoning (wrapping a PHP script in R) makes sense.

I'm currently keeping the PHP script in a separate file, and running it via a system call.

My R function/wrapper looks like this:

wrapper <- function() {

  # I'm not entirely sure what the path to the PHP file should be
  php_file_name <- "magic_in.php"
  php_script_argument <- "hello, world"

  system_call <- sprintf('php -f "%s"', php_file_name, php_script_argument)
  system(system_call)

}

while the magic_in.php file is the following:

<?php

    print($argv[1]."
")

?>

But this solution sucks - the system call works only if I have the PHP script in my current working directory.

I keep the wrapper in a ~/simple_package/R/wrapper.R file, but I'm not sure where to store the PHP script.

Am I supposed to keep the PHP file in a ~/simple_package/src directory and then call it using some dedicated R function (like .Call for C executables)?

Answer 1

Probably /data is not the best option for package scripts, /exec could be a better choice.

See:

• Is there any special functionality in R package “exec” or “tools” directories?

You may also consider using system2:

• system2 functioning in R
• Capture both exit status and output from a system call in R

For some languages (Python), there is some special support in CRAN

• rPython: Package Allowing R to Call Python

---

An example (using system and system.file):

• http://r.789695.n4.nabble.com/exec-subdirectory-of-a-package-td924560.html

It is executed by an external R script command-line:

#!/bin/env Rscript

args <- commandArgs(TRUE)
if( length(args) < 2 ){
    stop( "usage : R CMD execute package script [parameters]
" )
}
package <- args[1]
script <- args[2]
scriptfile <- file.path( system.file( "exec", script, package = package ) ) # <= path
if( !file.exists( scriptfile ) ){
    stop( sprintf( "file not found: '%s' ", scriptfile  ) )
}

trail <- if( length(args) > 2 ) paste( tail( args, -2 ), sep = " " ) else ""
cmd <- sprintf( '"%s" %s', scriptfile, trail )

system( cmd ) # <= or system2 ...