Блестящий код работает, когда я очищаю окружение, но в противном случае выдает объект 'Year' not found error

Question

options(scipen = 999)
library(ggplot2)
library(shiny)
library(DT)

ui <- fluidPage( 

      tabsetPanel(
      tabPanel("Home",
       titlePanel("2 Degree Portfolio Alignment Dashboard"),  

       sidebarLayout(
         sidebarPanel(
           downloadButton('downloadData', "Download excel template"),
           div(style = "margin-top:30px"),

           fileInput('file1', 'Upload Portfolio Data',
                     accept = c(".xlsx")),
           downloadButton('downloadData1', "Download analysis results"),
           #downloadButton('file2', "Download Result Excel")
         ),
         mainPanel(
           tableOutput('contents'))
       )

      ),  
      tabPanel("Graph", 
       titlePanel("2 Degree Alignment"), 

       plotOutput(outputId = "main_plot", height = "400px") ),

      tabPanel("Table", 
       titlePanel("Portfolio Results"),


      DT::dataTableOutput("table")
   )
  )
)

server <- function(input, output) {

  mydata2<- read.csv(file='TestData3.csv')
  mdf <- melt(mydata2, id.vars="Emissions", value.name="value", variable.name="Year")

  output$main_plot <- renderPlot({
        ggplot(data=mdf,aes(x=Year, y= value, group = Emissions, colour= Emissions))+ 
        geom_line(position = "dodge", stat = "identity") +  geom_point( size=4, shape=21, fill="white")
        +theme(legend.position="bottom",plot.title = element_text(size=15, face="bold"))    })

Комментарий:

Приведенный выше код работает сначала, но после запуска других приложений он перестает работать и выдает объект «Год» не найден, может кто-то пролить свет на то, как я должен объявить «Год» в таять или как избежать этой ошибки.