VS中使用QT调用R脚本

QFile Rfile("C:\\temp\\RScript\\heatmap.R");
            Rfile.open(QIODevice::WriteOnly);
            QTextStream RfileWrite(&Rfile);
            RfileWrite << "library(RColorBrewer)" << endl;
            RfileWrite << "library(gplots)" << endl;
            RfileWrite << "x = read.table(\"C:\\\\temp\\\\RData\\\\heatmap.dat\", header = TRUE, sep=\"\t\")" << endl;
            RfileWrite << "mat = data.matrix(x)" << endl;
            RfileWrite << "png(file = \"C:\\\\temp\\\\RPic\\\\heatmap.png\", bg = \"transparent\")" << endl;
            RfileWrite << "heatmap.2(mat, Rowv = TRUE, Colv = TRUE,  distfun = dist,hclustfun = hclust,\
xlab = \"X data\", ylab = \"Y data\",\
key = TRUE,keysize = 2,trace = \"none\",\
density.info = c(\"none\"),\
margins = c(5, 5),col = brewer.pal(10, \"PiYG\")\
)"<<endl;
            RfileWrite << "dev.off()" << endl;
            Rfile.flush();
            Rfile.close();
            //system("C:\\\"program files\"\\R\\R-3.1.2\\bin\\RScript D:\\drawtest.R");
            //system("RScript D:\\drawtest.R");
            ShellExecuteA(NULL, "open", "RScript.exe", "C:\\temp\\RScript\\heatmap.R", NULL, SW_HIDE);