没有适用于 'group_by_' 的方法应用于 dplyr 中的“NULL”类对象答案

【问题标题】：no applicable method for 'group_by_' applied to an object of class "NULL" in dplyr没有适用于 'group_by_' 的方法应用于 dplyr 中的“NULL”类对象
【发布时间】：2016-10-22 18:49:25
【问题描述】：

我正在为数据聚合开发一个闪亮的应用程序，其中从数据库中获取值并使用 dplyr 包进行聚合。最初，当没有数据时，我需要通过在屏幕上显示zero 值或NA 值而不是用红色no applicable method for 'group_by_' applied to an object of class "NULL" 显示此错误来更好地处理此错误

output$Regbycity <- renderValueBox({
valueBox(

  value = reg_city()$Total[1],
  subtitle = reg_city()$registrant_city[1],
  icon = icon("globe"),
  color = "light-blue"
)
})

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

  }

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

【问题讨论】：

标签： r shiny dplyr

【解决方案1】：

只需添加一个这样的函数......

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)}
}

注意。请注意缩进...

当它在没有信息的情况下开始时，这在一个闪亮的应用程序中对我有用。

【讨论】：