如何使用選擇輸入對R Shiny中的數據幀進行子集化？

Question

我正在嘗試根據列的變量對數據框進行子集化

但是，我得到一個錯誤，說

$ <-。data.frame中的錯誤：替換有1行，數據有0

以下是我的代碼的一部分。

用戶界面

selectInput("avpname",
            "Select AVP:",
             c(unique(as.character(IncidentTickets$RequestorAVP))))

服務器

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

這是我的長代碼的一部分。

我測試了

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

它工作正常，所以我假設input $ avpname以某種錯誤的方式使用了。

我將感謝您的幫助！

Answer 1

查明為什么您的代碼無法使用這些小代碼段有點困難。 我用它們來構建一個可行的例子。

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)

希望這可以幫助！