R 为什么主面板中不显示绘图？

我不熟悉R Shining并尝试在仪表板中生成绘图。除了情节之外，所有的东西都会显示出来。我也不会犯错误。谁能说，我到底做错了什么

我尝试使用不同的选项来生成图形，如 ggplot，plotOutput。两者都不起作用

library(shiny) 
library(lubridate)
library(ggplot2)
library(scales)
library(dplyr) 
library(shinydashboard)
data <- read.csv("sample.csv", stringsAsFactors = F, header = T)


ui <- fluidPage(
  dateRangeInput("daterange", "Choose the date",
             start = min(data$YEAR),
             end = max(data$YEAR),
             min = min(data$YEAR),
             max = max(data$YEAR),
             separator = " - ", format = "dd/mm/yy",
             startview = 'Week', language = 'Eng', weekstart = 1),  
  selectInput(inputId = 'Product',
          label='Product',
          choices=c('Product1','Product2'),
          selected='Product1'),
  plotOutput("barplot", height = 500))
server <- function(input, output) {

  a<-reactive({
data <- read.csv("sample.csv", stringsAsFactors = F, header = T)
dataset <- subset(data, Date >= input$daterange[1] & Date <= input$daterange[2])
dataset = switch(input$Product,
                 "Product1" = Product1,
                 "Product2" = Product2)  
dataset
})

output$barplot <-renderPlot({
color<- c("blue", "green")
barplot(data$PRODUCT, data$VALUE,
col = color)
})

}
shinyApp (ui = ui, server = server)

库（闪亮）
图书馆（lubridate）
图书馆（GG2）
图书馆（比例尺）
图书馆（dplyr）
图书馆（shinydashboard）
数据显示您的
条形图中似乎有输入错误。应该是
条形图（data$PRODUCT，data$VALUE，col=color）
？谢谢@teofil。我只是注意到了并改正了。但是绘图仍然没有显示。
barplot
应该从
dateRangeInput（）调用变量吗？将
cat（nrow（dateRangeInput（））
包含在
renderPlot
（可能）中，以检查返回的对象（数据集）是否是您想要的。如果包含一些真实或虚构的数据，会更容易提供帮助。否则无法重现问题。不，我需要条形图从sample.csv调用变量。因此，我对代码进行了相应的编辑。