我正在节点中构建一个messenger bot。我希望它收集用户输入数据并进行对话或提问,但我所拥有的代码并不起作用。如果我键入相同的代码,那么不起作用的部分只会继续到下一个if。第二个数组没有在第一个if语句后捕获文本。有没有更好的方法呢?有人可以提供代码吗?
我的代码如下。我想要的就像在这个iimage中:
data$concat <- apply(apply(data, 2, function(x) ifelse(x == "", 0, 1)), 1, function(x) paste(x, collapse="|"))