$R->send(q`a<-read.table("/usr/local/projects/file")`);

##</code><code>##


$file="/usr/local/projects/file";
$R->send(q`a<-read.table($file)`);