所以我需要办法让这项工作:
library(ggplot2)
library(gridExtra)
t <- data.frame(w = c(1, 2, 3, 4), x = c(23,45,23, 34),
y = c(23,34,54, 23), z = c(23,12,54, 32),
plate_name=LETTERS[1:4])
grid_arrange_shared_legend <- function(plots) {
g <- ggplotGrob(plots[[1]] + theme(legend.position="right"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lw <- sum(legend$width)
gl <- lapply(plots, function(x) x + theme(legend.position="none"))
grid.arrange(arrangeGrob(grobs = gl), legend,
ncol = 2, widths = unit.c(unit(1, "npc") - lw, lw))
}
myfun <- function(l,q) ggplot(t, aes(x=get(l), y=get(q))) +
geom_point(aes(col=plate_name), size=2.0) +
xlab(l) + ylab(q) +
geom_smooth(method="lm") +
scale_color_brewer(palette = "Paired") +
theme_bw()
cmb <- combn(names(t)[-ncol(t)],2)
lst <- mapply(myfun, cmb[1,], cmb[2,], SIMPLIFY = F)
grid_arrange_shared_legend(lst)
我不知道如何开始使用if(variable.indexOf(textfilescontent)
do this
else
do this
和javaScript,所以如果有人知道怎么做,请回复此帖(这是我的最后一次尝试......)!
编辑:我试图检查文本文件中是否有与变量
相同的文本编辑:我试图制作的代码将作为一个整体做到这一点:它将获得最新的yt频道视频(完成)作为entry.link。之后它会(这是我不知道如何做的部分)检查txt文件是否具有相同的链接。如果它没有相同的链接,则意味着视频被更新=它将发布消息与其中的链接不一致。如果是,它将再次获得链接并再次尝试相同的事情。(我知道如何做不和谐部分,但我不知道如何检查如果txtfilecontent = variablecontent
答案 0 :(得分:0)
我不完全确定你问的是什么,但我会假设你要检查文件的内容是否位于变量的某个位置。如果是这种情况,那么你可以这样做:
(async () => {
let InFile = new Promise(async (resolve, reject) => {
let file = require('fs').readFileSync(__dirname + '/FILE_NAME.EXTENSION');
if(String(VAR_NAME).indexOf(file) > -1) {
resolve(this);
}else {
reject(this);
}
});
InFile.then(async () => {
console.log('It is in file...');
// Code You Want To Execute If The File Is In The Varible
// You May Or May Not Want To Use The "async" keyword depending on the code that goes in here
}).catch(async () => {
console.log('It isn\'t in file...');
// Code You Want To Execute If The File Is Not In The Varible
// You May Or May Not Want To Use The "async" keyword depending on the code that goes in here
});
})();
如果这不是你要求的话,请提前道歉。
编辑:在运行此代码之前,必须在项目目录中的“终端”中输入“npm install --save fs”