没有适用于'的方法；分组按'；适用于“类”的对象；空"；在dplyr中

我正在开发一个闪亮的数据聚合应用程序，其中的值是从数据库中获取的，聚合是使用dplyr包进行的。最初，当没有数据时，我需要通过在屏幕上显示

zero

值或

NA

值来更好地处理此错误，而不是将此错误显示为红色

输出$Regbycity%
汇总（总计=n（））%>%
排列（描述（总计））%>%
顶部（n=15）
}

---

在上面的代码中，值对象并没有任何漏洞，因为数据库中并没有任何内容，这是它在闪亮的仪表板上显示错误的一行，我想去掉它。请帮助….

只需添加这样的函数

if.is.empty <- function(x){
    is.null(need(x, message = FALSE))}

reg_city <- function(){
    if (if.is.empty(final_data)) {
        final_data %>% 
        group_by(registrant_city) %>%
        summarise(Total= n()) %>% 
        arrange(desc(Total)) %>% 
        top_n(n=15)}
}

if.is.empty%
汇总（总计=n（））%>%
排列（描述（总计））%>%
顶部n（n=15）}
}

注意。小心压痕

---

在一个闪亮的应用程序中，当它开始时没有信息时，这对我来说很有效。

只需添加一个这样的功能

if.is.empty <- function(x){
    is.null(need(x, message = FALSE))}

reg_city <- function(){
    if (if.is.empty(final_data)) {
        final_data %>% 
        group_by(registrant_city) %>%
        summarise(Total= n()) %>% 
        arrange(desc(Total)) %>% 
        top_n(n=15)}
}

if.is.empty%
汇总（总计=n（））%>%
排列（描述（总计））%>%
顶部n（n=15）}
}

注意。小心压痕

在一个闪亮的应用程序中，当它开始时没有信息，这对我来说很有用