Почему график не отображается на главной панели?

Question

Я новичок в R блестящий и пытаюсь создать графики на приборной панели.Все отображается, кроме сюжетов.Я тоже не получаю ошибок.Кто-нибудь может сказать, что именно я делаю не так?

Я пытался использовать разные опции для генерации графиков, таких как 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)

Я не получаю ошибок.