运行服务器时未显示 Plot output

Question

在 R - 我正在尝试为使用 ggplot 构建的 plot 创建一个下拉列表。 我决定使用 shiny package 来执行此操作。 我不知道为什么，但是当服务器启动下拉菜单并且一切都在那里但是当我尝试单击不同的选项时，plot 不会出现。 我知道我的列表目前是 static - 我只是想在更新那部分之前先让它工作。 我将在下面显示我的代码。 我正在尝试过滤事件列。 事件列将具有“Iowa @ Ohio State”等值。

library(tidyverse)
library(tcltk)
library(latticeExtra)
library(patchwork)

rm(list=ls())

#new code
# Start with a usual ggplot2 call:

server = function(input, output, session) {
  
  #load data
  df3 = read.csv("C:/Users/X/Desktop/Data/Consolidated_Data_2020-12-27.csv")
  
  #summarize data
  data = reactive({
    req(input$Event)
    df3 <- filter(df3, Side == "Favorite")
    df3 <- df3 %>% filter(Event %in% input$Event)
  })
  
  #plot
  output$plot = renderPlot({
      g = ggplot(data(), aes(x=-(Time.Remaining))) +
      
      geom_line(color = "steelblue", size = 1, aes(y=Original.Line)) + 
      geom_line(color = "#69b3a2", size = 1, aes(y=Live.Line)) +
      labs(title = "Live Line vs Original",
           subtitle = df3$Event,
           y = "Original Line", x = "Time Remaining") +
      facet_wrap(~ Half)
  })
  
}  

ui = basicPage(
  h1("Game"),
  selectInput(inputId = "Event", 
        label = "Choose Game",
        list("Alcorn State Braves @ Vanderbilt Commodores", "DePaul Blue Demons @ Providence Friars")),
  plotOutput("plot")
)

shinyApp(ui = ui, server = server)