R中的错误:下标var有错误的类型quosure/公式。它必须是数字或字符

Question

代码：

GeoSeparate <- function(Dataset, GeoColumn) {
  GeoColumn <- enquo(GeoColumn) 
  Dataset %>% 
    separate(GeoColumn, into = c("Section1", "Section2"), sep = "\\(")%>%
    separate(Section1, into = c("Section3", "Section4"), sep = ",")%>%
    separate(Section2, into = c("GeoColumn", "Section5"), sep = "\\)")%>%
    separate(GeoColumn, into = c("GeoColumnLat", "GeoColumnLon"), sep = ",")%>%
    select(-Section3, -Section4, -Section5) #remove sections we don't need
}

测试：

GeoSeparate(df3, DeathCityGeo)

错误：

Must extract column with a single subscript. x The subscriptvarhas the wrong typequosure/formula. ℹ It must be numeric or character.

我的函数分离了一个格式为"Norwalk，CT\n(41.11805，-73.412906)“的列，因此纬度和经度都是保留的，它们在两个单独的列中。它工作了一段时间，但现在我得到了上面描述的错误消息。这可能是因为我更新了我的库，但我不确定。任何帮助都会是惊人的！谢谢。

Answer 1

我们需要评估(!!)

GeoSeparate <- function(Dataset, GeoColumn) {
    GeoColumn <- enquo(GeoColumn) 
    Dataset %>% 
        separate(!!GeoColumn, into = c("Section1", "Section2"), sep = "\\(")%>%
        separate(Section1, into = c("Section3", "Section4"), sep = ",")%>%
        separate(Section2, into = c("GeoColumn", "Section5"), sep = "\\)")%>%
        separate(!!GeoColumn, into = c("GeoColumnLat", "GeoColumnLon"), sep = ",")%>%
        select(-Section3, -Section4, -Section5) #remove sections we don't need
    }

或者另一个选择是curly-curly ({{}})

GeoSeparate <- function(Dataset, GeoColumn) {

        Dataset %>% 
            separate({{GeoColumn}}, into = c("Section1", "Section2"), sep = "\\(")%>%
            separate(Section1, into = c("Section3", "Section4"), sep = ",")%>%
            separate(Section2, into = c("GeoColumn", "Section5"), sep = "\\)")%>%
            separate({{GeoColumn}}, into = c("GeoColumnLat", "GeoColumnLon"), sep = ",")%>%
            select(-Section3, -Section4, -Section5) #remove sections we don't need
        }