R 在应用程序的UI和服务器端连接对象

我试图了解在一个R闪亮的应用程序中UI和服务器端是如何连接的。这是我在服务器端的代码。这是我在处理矩阵/向量数据时通常会做的事情——我知道这可能不是最好的方法，但它在过去对我很有效

我现在正在处理空间数据，正在努力理解如何将用户选择的输入连接到我在服务器端创建的对象

服务器端：

library(shiny)
library(raster)
library(tiff)
library(rgdal)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  Oklahoma <- brick("Oklahoma.tif")
  Counties <- brick("Counties.tif")
  "Counties" <- Counties
  "Oklahoma" <- Oklahoma
  output$distPlot <- renderPlot({
    {
      Selected_Dataset <- get(input$data)
      if(Selected_Dataset == "Oklahoma")
      {
    plotRGB(Oklahoma)
      }
      if(Selected_Dataset == "Counties"){
        plotRGB(Counties)
      }
    }  
  })

})

当运行此代码时， 给出的错误是比较（如果（selected_dataset==“Oklahoma”））对此数据类型无效。在这个示例代码中，所选的用户输入将是Oklahoma，但我认为我没有正确调用该对象

---

如何根据用户输入输出俄克拉荷马州地图？或者更广泛地说，ui.R和server.R是如何交流用户输入和输出的？

您的问题到底是什么？我试图更新它，使其更有意义。用户正在从选项列表中进行选择。根据用户从字符串列表中的选择，我想更改显示的地图。我认为我的错误在我创建的for循环中的某个地方。

library(shiny)

shinyUI(fluidPage(

  # Application title
  h3("Oklahoma map"),

  sidebarLayout(




sidebarPanel(tags$head(tags$style("#distPlot{height:85vh !important;}")),
                 selectInput("data","Select what you would like to see", c(




                   "Oklahoma",
                   "Counties",
                  "Livestock Incident",
                  "Land Usagetype",
                   "Sandhills"),
                   selected = "Oklahoma")
                 ,

                 uiOutput("ui"),

                 h6("This application allows users to visualize data about Oklahoma", 
                    a("(CVA)", href ="http://www.Oklahoma.org/", target = "_blank"))

    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("distPlot"),
      h6("For additional information, contact Oklahoma", a("here", href = "http://www.Oklahoma.org/", target = "_blank")),
      h6("Application created by", a("Ricky Bobby", href = "https://www.linkedin.com", target = "_blank"), " - 2018")
    )
  )
))