闪亮的反应情节失败

Question

我有一系列 (100+) 个情节，我想根据用户选择的犯罪类型和年份显示这些情节（反应性）

这些地块已经命名，格式如下："CrimeDataA01" 代表 2001 年的袭击，"CrimeDataM02" 代表 2002 年的谋杀，等等。

绘图已定义，它们的代码已粘贴到服务器文件中的 shinyServer(function(input, output) 之前。

我正在尝试让 Shiny 打印正确的情节，这取决于用户选择的犯罪和年份。这是我的 server.r 代码：

shinyServer(function(input, output) {
crime2 <- switch(input$select,
               "Assault" = "A",
               "Burglary" = "B",
               "Car Theft" = "MT",
               "Grand Larceny" = "G",
               "Murder" = "M",
               "Rape" = "R",
               "Robbery" = "RO")
year2 <- switch(input$Slider,
               "2000" = "00",
               "2001" = "01",
               "2002" = "02",
               "2003" = "03",
               "2004" = "04",
               "2005" = "05",
               "2006" = "06",
               "2007" = "07",
               "2008" = "08",
               "2009" = "09",
               "2010" = "10",
               "2011" = "11",
               "2012" = "12",
               "2013" = "13",
               "2014" = "14",
               "2015" = "15")
output$plot <- plot(paste0("CrimeData", crime2, year2))
  })
})

这是我的 ui.R 代码：

library(shiny)
shinyUI(fluidPage(
  sidebarLayout( position = "right",
sidebarPanel(
      selectInput("select", label = h3("Select Crime"),
              choices = list("Assault" = 1, "Burglary" = 2, "Car Theft" = 3, "Grand Larceny" = 4, "Murder" = 5, "Rape" = 6, "Robbery" = 7))
),
    mainPanel(
  textOutput("text1"),
  h1("NYC Crime Over Time", align = "center"),
  sliderInput("Slider", "Year", 2000, 2015, 2000),
print(plot)
  ))))

我把它搞得一团糟，我不知道什么是上或下了。我只是想让它调用正确的绘图并显示它

Answer 1

如果我答对了您正在寻找以下代码的问题：请注意，我只定义了 CrimeDataA00 和 CrimeDataA01，其他地块您似乎已保存在本地。除了布兰登建议研究 renderImage() 或 renderPlot() 之外，您还应该熟悉 reactives() 和 get()。祝你好运！

plot(1:9)
CrimeDataA00 <- recordPlot()

server <- shinyServer(function(input, output) {
  crime2 <- reactive({
    switch(input$select,
           "Assault" = "A",
           "Burglary" = "B",
           "Car Theft" = "MT",
           "Grand Larceny" = "G",
           "Murder" = "M",
           "Rape" = "R",
           "Robbery" = "RO")  
  })

  year2 <- reactive({
    switch(as.character(input$Slider),
           "2000" = "00",
           "2001" = "01",
           "2002" = "02",
           "2003" = "03",
           "2004" = "04",
           "2005" = "05",
           "2006" = "06",
           "2007" = "07",
           "2008" = "08",
           "2009" = "09",
           "2010" = "10",
           "2011" = "11",
           "2012" = "12",
           "2013" = "13",
           "2014" = "14",
           "2015" = "15")  
  })

  output$plot <- renderPlot({
    get(paste0("CrimeData", crime2(), year2()))
  })
})



library(shiny)
ui <- shinyUI(fluidPage(
  sidebarLayout( position = "right",
                 sidebarPanel(
                   selectInput("select", label = h3("Select Crime"),
                               choices = list("Assault" = "Assault", "Burglary" = "Burglary", "Burglary" = "Burglary", "Grand Larceny" = "Grand Larceny", "Murder" = "Murder", "Rape" = "Rape", "Robbery" = "Robbery"))
                 ),
                 mainPanel(
                   textOutput("text1"),
                   h1("NYC Crime Over Time", align = "center"),
                   sliderInput("Slider", "Year", 2000, 2015, 2000),
                   plotOutput("plot")
                 ))))

shinyApp(ui, server)

闪亮的反应情节失败

Shiny Reactive Plot Fail

r

shiny

shiny-server

shinydashboard