Блестящий код (график) работает хорошо локально, но получает объект не найден ошибка на сервере - PullRequest
Новая
       10

Блестящий код (график) работает хорошо локально, но получает объект не найден ошибка на сервере

0 голосов
/ 23 января 2020 
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")) 
   })

Локально работает с одним форматом файла, но когда я внедряю его в другой файл, разделенный в модулях сервера / пользовательского интерфейса на сервере, я получаю объект «Год», не определенная ошибка.

Что такое Причина объекта 'Год' не найдена и как ее устранить? Весь код включен сюда.

Не могу понять, как это возможно, так как оператор melt объявляет объект в обоих случаях. Любая обратная связь будет полезна.

...