如何從Shiny中的反應元素繪制列

Question

這是我使用Shiny制作的第一個應用程序，我的反應式繪圖遇到了一些麻煩。 我的最終目標是能夠使用下拉菜單選擇客戶端AD，然后在按下“更新”按鈕時從散點圖中的列（日期，ModResult）繪制數據點。 現在，它返回“軸錯誤：沒有位置是有限的”。 labData數據框有7列：“ Client.Name”是第1列，“ Date”是第4列，“ ModResult”是第7列。請讓我知道是否還有其他信息可以幫助調試此錯誤！

謝謝！

library(shiny)
ui <- fluidPage(titlePanel("Dilution History"),
  selectInput(inputId="client", label="Select Client Name", 
choices=levels(labData$Client.Name)), actionButton("update", "Update"), 
hr(),
  plotOutput("line")
)


server <- function(input, output, session){
#selected client into data frame
selDF <- reactive({data.frame(labData[labData[,1] =="input$client",])
  })   
  output$line <- renderPlot({
    plot(selDF()$Date, selDF()$ModResult, ylab="Result", main="Results 
For Client X Between Xdate and Ydate")
  })
}


shinyApp(ui = ui, server = server)

Answer 1

經過幾次修改

library(shiny)
ui <- fluidPage(titlePanel("Dilution History"),
                selectInput(inputId = "client", label = "Select Client Name", 
                            choices = levels(labData$Clientname)), submitButton("update"), 
                hr(),
                plotOutput("line")
)


server <- function(input, output, session){

selDF <- reactive({data.frame(labData[labData$Clientname == input$client,])
  })
  output$line <- renderPlot({
    plot(selDF()$date, selDF()$result, ylab = "Result", main = "Results For Client X Between Xdate and Ydate")
  })
}

shinyApp(ui = ui, server = server)