Question

我有一个交互式的可视化文件，可连接到市政府的警察数据API。

当选择了某些输入组合时，我的API调用返回为空，并且收到令人讨厌的红色错误消息（因为我的绘图输入不可用）。

有人可以告诉我如何按照“没有符合您的选择的事件，请重试”这一行显示更多的错误消息吗？我希望此错误消息显示为showNotification，而我的ggplot不显示。

下面是我正在做的事情的精简版。请注意如何选择“ AVONDALE”和“化学刺激剂”之类的组合时，图表呈现，而当选择“ ENGLISH WOODS”和“ TASER-BEANBAG-PEPPERBALL-40MM泡沫”之类的组合时，将返回错误消息。这是我想用showNotification警报解决的错误消息。

请注意，这使用了Socrata API，因此必须安装和加载软件包RSocrata。

install.packages("RSocrata")
library(shiny)
library(reshape2)
library(dplyr)
library(plotly)
library(shinythemes)
library(tibble)
library(RSocrata)

# Define UI for application that draws a histogram
ui <- fluidPage(
  navbarPage("Example", 
             theme = shinytheme("united"),
             tabPanel("Plot",
                      sidebarLayout(
                        sidebarPanel(

                          # neighborhood selector
                          selectizeInput("neighbSelect", 
                                         "Neighborhoods:", 
                                         choices = c("AVONDALE", "CLIFTON", "ENGLISH WOODS"), 
                                         multiple = FALSE)),

                          # incident description selector
                          selectizeInput("incSelect", 
                                         "Incident Type:", 
                                         choices = c("CHEMICAL IRRITANT", "TASER-BEANBAG-PEPPERBALL-40MM FOAM"), 
                                         multiple = FALSE))
                        ),

                        # Output plot
                        mainPanel(
                          plotlyOutput("plot")
                        )
                      )
             )

# Define server logic
server <- function(input, output) {
  forceInput <- reactive({
    forceInput <- read.socrata(paste0("https://data.cincinnati-oh.gov/resource/e2va-wsic.json?$where=sna_neighborhood= '", input$neighbSelect, "' AND incident_description= '", input$incSelect, "'"))
  })

# Render plot
  output$plot <- renderPlotly({
    ggplot(data = forceInput(), aes(x = sna_neighborhood)) +
      geom_histogram(stat = "count")
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

非常感谢任何人都能提供的任何帮助！

Answer 1

我将举一个shinyalert库的例子来显示弹出窗口。在这里，我添加了示例选项TEST来表示没有数据：

#install.packages("RSocrata")
library(shiny)
library(reshape2)
library(dplyr)
library(plotly)
library(shinythemes)
library(tibble)
library(RSocrata)
library(shinyalert)

# Define UI for application that draws a histogram
ui <- fluidPage(
  useShinyalert(),
  navbarPage("Example", 
             theme = shinytheme("united"),
             tabPanel("Plot",
                      sidebarLayout(
                        sidebarPanel(

                          # neighborhood selector
                          selectizeInput("neighbSelect", 
                                         "Neighborhoods:", 
                                         choices = c("AVONDALE", "CLIFTON", "ENGLISH WOODS","TEST"), 
                                         multiple = FALSE)),

                        # incident description selector
                        selectizeInput("incSelect", 
                                       "Incident Type:", 
                                       choices = c("CHEMICAL IRRITANT", "TASER-BEANBAG-PEPPERBALL-40MM FOAM"), 
                                       multiple = FALSE))
             ),

             # Output plot
             mainPanel(
               plotlyOutput("plot")
             )
  )
)

# Define server logic
server <- function(input, output,session) {

  forceInput <- reactive({
    forceInput <- read.socrata(paste0("https://data.cincinnati-oh.gov/resource/e2va-wsic.json?$where=sna_neighborhood= '", input$neighbSelect, "' AND incident_description= '", input$incSelect, "'"))

    if(nrow(forceInput)==0){
      shinyalert("Oops!", "No data returned", type = "error")
      forceInput <- NULL
    }
    forceInput
  })

  # Render plot
  output$plot <- renderPlotly({
    req(forceInput())
    ggplot(data = forceInput(), aes(x = sna_neighborhood)) +
      geom_histogram(stat = "count")
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

api调用在Shiny中变空时显示错误消息？

1 个答案: