如何使用select input将r中的数据帧子集？

我试图根据列的变量对数据帧进行子集划分

然而，我得到了一个错误的说法

---

$中的错误很难确定代码不使用这些小代码段的原因。我用它们构建了一个工作示例

IncidentTickets = data.frame(RequestorAVP=c(1,2,3,4))
NumberOfIncidentTickets = data.frame(RequestorAVP=c(1,2,3,4))


library(shiny)
library(DT)
ui <- shinyUI(
  fluidPage(
    selectInput("avpname",
                "Select AVP:",
                c(unique(as.character(IncidentTickets$RequestorAVP)))),
    DT::dataTableOutput("table")
  )
)

server <- function(input,output)
{

  limitDateRange <- reactive({
    NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == input$avpname)
  })

  output$table <- DT::renderDataTable(
    limitDateRange()
  )
}

shinyApp(ui,server)

IncidentTickets=data.frame（RequestorAVP=c（1,2,3,4））
NumberOfIncidentTickets=data.frame（RequestorAVP=c（1,2,3,4））
图书馆（闪亮）
图书馆（DT）
谢谢。我尝试了这个方法，效果很好，但我不知道为什么它不能与我的所有代码一起使用。也许可以在代码中添加一些print（）语句，然后看看控制台中发生了什么。所有变量是否都如预期的那样，是否没有空值等。也许这可以帮助您跟踪错误。谢谢，我将尝试print（）以查看是否可以更好地跟踪！
limitDateRange <- reactive({
NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == input$avpname)
})

NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == 'Students')

IncidentTickets = data.frame(RequestorAVP=c(1,2,3,4))
NumberOfIncidentTickets = data.frame(RequestorAVP=c(1,2,3,4))


library(shiny)
library(DT)
ui <- shinyUI(
  fluidPage(
    selectInput("avpname",
                "Select AVP:",
                c(unique(as.character(IncidentTickets$RequestorAVP)))),
    DT::dataTableOutput("table")
  )
)

server <- function(input,output)
{

  limitDateRange <- reactive({
    NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == input$avpname)
  })

  output$table <- DT::renderDataTable(
    limitDateRange()
  )
}

shinyApp(ui,server)