Я пытаюсь понять, как стороны пользовательского интерфейса и SERVER связаны в приложении R Shiny. Вот мой код на стороне сервера. Это то, что я обычно делал при работе с матричными / векторными данными - я знаю, что это, вероятно, не лучший способ сделать это, но это работало для меня в прошлом.
Сейчас я работаю с пространственными данными и пытаюсь понять, как подключить выбранные пользователем входные данные к объекту, который я создал на стороне сервера.
СТОРОНА СЕРВЕРА:
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)
}
}
})
})
UI SIDE:
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")
)
)
))
Когда этот код запускается,
приведенная ошибка заключается в том, что сравнение (if (selected_dataset == "Oklahoma")) недопустимо для этого типа данных. В этом примере кода выбранный пользовательский ввод будет Оклахома, но я считаю, что я неправильно вызываю объект.
Как вывести карту Оклахомы на основе пользовательского ввода? Или, в более широком смысле, как ui.R и server.R связывают пользовательский ввод и вывод?