Displaying 1 result from an estimated 1 matches for "apsolut".
Did you mean:
absolut
2004 Aug 18
3
R as shared library
...equst */
PROTECT(R_source_fun = allocVector(LANGSXP, 2));
SETCAR(R_source_fun, Rf_install("source"));
SETCAR(CDR(R_source_fun), R_source_arg = NEW_CHARACTER(1));
Then each request is serviced by the following code:
/* r is apache request, r->filename is url translated to
apsolute path to filename */
SET_STRING_ELT(R_source_arg, 0, COPY_TO_USER_STRING(r->filename));
errorOccurred=1;
/* R code: source(filename) */
val = R_tryEval(R_source_fun,NULL,&errorOccurred);
if (errorOccurred){
// Send a message to stderr (apache redirects this to the error log)...