制作返回过滤数据列表的 Shiny 应用程序

Question

I am very new to Shiny and R, so please bear with me, I have a set of data where zip code is one of the variables, and I am trying to make an interactive shiny app where you can type in the zip code. 它将返回与输入的 zip 代码匹配的数据，到目前为止，当我运行应用程序时，它会要求输入 zip 代码并允许您输入。 但就是这样。 我真的卡住了谢谢

library(shiny)
library(DT)
library(odbc)
library(shinydashboard)
library(readr)



os <- Sys.info()[1]

if(os == "Windows"){driverName <- "SQL Server"}
if(os != "Windows"){driverName <- "SQLServer"}
#detect Operating System & set driver
#This lets it run on either without changing it each time


#Set working directory, I didn't copy and paste it here but it works fine

AnimalData <- read.csv("AnimalData.csv")
#assinging a variable to csv file


ui <- fluidPage (numericInput(inputId = "number",
                              label = "Source Zip Code",
                              value= 0,
                              min = NA,
                              max = NA,
                              step = NA,
                              width = NULL),
                 dataTableOutput("AnimalID")
)



server <-function(input, output) {
  output$AnimalID <- renderDataTable(iris, options= list(AnimalData$sourcezipcode = input$number), escape = AnimalData$animalid)
}

shinyApp(ui = ui, server = server)