创建过滤器功能时出错

Question

锐化关于r中函数的概念，我决定创建一个过滤函数，该函数根据

等条件成功提取数据

searchController

不知怎的，我只是得到一个空的tibble，我无法调试我出错的地方。我附上了我的数据集结构和我使用的代码的图片。期待您对此提出的建议和指导。

Answer 1

试试这个：

CrimeFilter <- function(x, y, z){
    for(i in seq_along(CrimeAnnual2012_2015Updated)){
            return(subset(CrimeAnnual2012_2015Updated,
                          Public <= x & CrimeType == y & Year == z))
    }
}

CrimeFilter(100, "Murder", "012012")