The R Project SVN R

(root)/trunk/tests/Embedding/RNamedCall.c – Rev 38673 → 38840



    char *localArgs[] = {"R", "--silent"};
    init_R(sizeof(localArgs)/sizeof(localArgs[0]), localArgs);
    source("foo.R");
    bar1();
 
    end_R();
    return(0);
}
 
 
/*

Rev 38673	Rev 38840
Line 13...	Line 13...
13	`char *localArgs[] = {"R", "--silent"};`	13	`char *localArgs[] = {"R", "--silent"};`
14	`init_R(sizeof(localArgs)/sizeof(localArgs[0]), localArgs);`	14	`init_R(sizeof(localArgs)/sizeof(localArgs[0]), localArgs);`
15	`source("foo.R");`	15	`source("foo.R");`
16	`bar1();`	16	`bar1();`
17		17
-		18	`end_R();`
18	`return(0);`	19	`return(0);`
19	`}`	20	`}`
20		21
21		22
22	`/*`	23	`/*`