閃亮的應用程序，僅顯示一些圖形

Question

我正在使用閃亮的應用程序制作一些預測圖。 但是，我有一個問題，該應用程序僅顯示一些圖形。 我目前在應用的服務器部分使用以下代碼。

server <- function(input, output) {  

 output$graph <- renderPlot({
      row.number <- which(grepl(input$n1, Data$Kontotal))
      name <- Data [row.number, -(1:3)]
      name <- t(name)
      name <- ts(name, frequency=12, start=c(2007,1))
      n.row <- nrow(name)

      en<-max(time(name))
      ds<-as.data.frame(window(name,end=en))
      names(ds)<-'obs'
      ds$date<-as.Date(time(window(name,end=en)))     


       p1a <- ggplot(data=ds,aes(x=date,y=obs)) 
       p1a <- p1a+geom_line(col='red')
       p1a <- p1a+scale_x_date(name='',breaks='1 year',minor_breaks='1 month',labels=date_format("%b-%y"),expand=c(0,0))
       p1a <- p1a+scale_y_continuous(name='mio.kr')
       p1a <- p1a + theme_bw() + 
            theme(panel.border = element_blank(), 
                  panel.grid.major = element_blank(),
                  panel.grid.minor = element_blank(), 
                  axis.line = element_line(colour = "black")) })


 output$graph2 <- renderPlot({

  if (input$n3 == "HW") { 
           row.number <- which(grepl(input$n1, Data$Kontotal))
           name <- Data [row.number, -(1:3)]
           name <- t(name)
           name <- ts(name, frequency=12, start=c(2007,1))
           n.row <- nrow(name)


           fit <- auto.arima (name)
           fcast <- forecast(fit, input$n2)



           ### Plotting

           data.pred <- forc.ggplot (name, fcast)




           p1a <- ggplot(data=data.pred,aes(x=date,y=obs)) 
           p1a <- p1a+geom_line(col='red')
           p1a <- p1a+geom_line(aes(y=fitted),col='blue')
           p1a <- p1a+geom_line(aes(y=forecast))+geom_ribbon(aes(ymin=lo95,ymax=hi95),alpha=.25)
           p1a <- p1a+scale_x_date(name='',breaks='1 year',minor_breaks='1 month',labels=date_format("%b-%y"),expand=c(0,0))
           p1a <- p1a+scale_y_continuous(name='mio.kr')
           p1a <- p1a + theme_bw() + 
                theme(panel.border = element_blank(), 
                      panel.grid.major = element_blank(),
                      panel.grid.minor = element_blank(), 
                      axis.line = element_line(colour = "black"))
           p1a


      }  

  if (input$n3 == "arima") { 
        row.number <- which(grepl(input$n1, Data$Kontotal))
        name <- Data [row.number, -(1:3)]
        name <- t(name)
        name <- ts(name, frequency=12, start=c(2007,1))
        n.row <- nrow(name)


        fit <- auto.arima (name)
        fcast <- forecast(fit, input$n2)



        ### Plotting

        data.pred <- forc.ggplot (name, fcast)




        p1a <- ggplot(data=data.pred,aes(x=date,y=obs)) 
        p1a <- p1a+geom_line(col='red')
        p1a <- p1a+geom_line(aes(y=fitted),col='blue')
        p1a <- p1a+geom_line(aes(y=forecast))+geom_ribbon(aes(ymin=lo95,ymax=hi95),alpha=.25)
        p1a <- p1a+scale_x_date(name='',breaks='1 year',minor_breaks='1 month',labels=date_format("%b-%y"),expand=c(0,0))
        p1a <- p1a+scale_y_continuous(name='mio.kr')
        p1a <- p1a + theme_bw() + 
             theme(panel.border = element_blank(), 
                   panel.grid.major = element_blank(),
                   panel.grid.minor = element_blank(), 
                   axis.line = element_line(colour = "black"))
        p1a


   }  


 })

}

問題在於僅顯示ARIMA圖。 但是請注意 ，在這里發布的代碼中，我在代碼的HW部分中更改了模型，因此它與ARIMA部分（包括模型）相同，只是為了檢查這是因為ets出了問題函數（我用來估算硬件模型）。

在硬件的情況下，它只是留出了圖形應該在的空白空間，但是為ARIMA模型繪制了正確的圖形。

有人嘗試過類似的東西嗎？

Answer 1

把p1a在你結束renderPlot()塊外if塊。 renderPlot嘗試繪制塊的最后一個表達式。 如果input$n3 =="HW" ，則生成繪圖對象p1a ，然后繼續評估下一個if條件，即FALSE ，因此沒有任何內容傳遞給plotOutput() 。

另一種解決方案是使用switch()代替if 。 switch()僅計算匹配元素的表達式。