我将一些代码作为字符串发送到 R.net 包装器。如果里面没有任何引号,用@很简单
engine.Evaluate(@"remove_outliersabove <- function(x, na.rm = TRUE, ...) {
qnt <- quantile(x, probs=c(.25, .75), na.rm = na.rm, ...);
H <- 1.5 * IQR(x, na.rm = na.rm);
y <- x;
y[x > (qnt[2] + H)] <- NA;
y;
}");
但是如果我里面有“”,那么事情就会变得复杂,我需要像这样剪切和连接字符串
engine.Evaluate("for (k in 1:length(dates))" +
"{ " +
"tmp <- grep(dates[[k]],as.Date(data$timestamp, format=\"%d/%m/%Y\"))" +
"if (length(tmp)!=96)" +
"{ " +
"to_remove[[it]]=k it=it+1" +
"}" +
"}");
有更好的选择吗?例如使用 @ 然后以某种方式标记 quation mark ?