如何在R函数中传入新列名

Question

我搜索了很多问题，但无法在我的方案中使用他们的任何解决方案。我确定它很简单！我有一个玩具数据集（但不知道如何上传）。

我有一个大的（和tidy）数据集，我想在不同的列中计算每行有多少不是NA。我想将该计数放入一个新列，并命名该新列。我通过which查找开始和结束列，然后使用rowSums来计算，从而对计数编制索引。这很好。

但是我无法用我想要的newvarname制作新专栏。由于我将多次重复此功能，我需要更改新的名称。

count.non.na.cols <- function(x, qstartvar, qendvar, newvarname) {
    qstart <- which(names(x) == qstartvar)
    qend <- which(names(x) == qendvar)
    x[[newvarname]] <- rowSums(!is.na(data1xqstart:qend]))
    x
    }

count.non.na.cols(x = data1, qstartvar = "3-Acquiring.equipment.and.becoming.operational", 
              qendvar = "3-Other:", newvarname = "NumLim2")

我没有收到任何错误。我只是没有在data1中获得新列。请帮忙。 （我已尝试rename，colnames和mutate。）