Как использовать updateselection () в. Rhiny corectly

Question

У меня проблема с моим скриптом в RShiny . На самом деле скрипт работает, но у меня есть это сообщение об ошибке / предупреждение:

Эстетика должна быть либо длины 1, либо соответствовать данным (1): x, fill

Вы можете получить доступ к моему скрипту на [github] (https://github.com/vladamihaesei/Rshiny_stripes_temperatures)

Answer 1

library(shiny)
library(shinythemes)
library(ggplot2)
library(dplyr)
library(RColorBrewer)

temp <- read.csv("Temperature_1961-2010.csv", stringsAsFactors = FALSE)
col_strip <- brewer.pal(11, "RdBu")

ui <- fluidPage(theme = shinytheme("darkly"),
                titlePanel("Temperature of Romania 1961-2010"),
                sidebarLayout(
                  sidebarPanel(
                    selectInput("RegiuneInput", "Regiune",
                                choices = unique(temp$CMR)),
                    selectInput("judetInput", "Judet",
                                choices = unique(temp$NUME))
                  ),
                  mainPanel(plotOutput("coolplot"))
                )
)
server <- function(input, output, session) {
  observeEvent(input$RegiuneInput,
               updateSelectInput(session, "judetInput", "Judet",
                                 choices = unique(temp$NUME[temp$CMR==input$RegiuneInput])))

  output$coolplot <- renderPlot({
    filtered1 <- temp  %>%
      filter(CMR == isolate(input$RegiuneInput),
             NUME == input$judetInput)

    ggplot(filtered1,
           aes(x = Data, y = 1, fill = Temp))+
      geom_tile() +
      scale_fill_gradientn(colors = rev(col_strip)) +
      guides(fill = guide_colorbar(barwidth = 1)) +
      theme_void()
  })
}

shinyApp(ui = ui, server = server)