Question

我在处理闪亮问题时遇到了问题。 Eveything进展顺利，现在，我有这个＆＃34;错误：对象＆＃39; pwhour＆＃39;找不到＆＃34;问题

这是我的服务器代码：

    setwd("~mypath")
    ###############################################################

    #####load dataset##############################################
    pwhour<-read.csv("pwhour.csv",sep=',',header=TRUE)
    names(pwhour)[names(pwhour)=="X"] <- "date"
    pwhour$date<-as.POSIXct(pwhour$date,format="%y-%m-%d %H")
    pwhour$date2<-as.POSIXct(pwhour$date,format="%Y-%m-%d %H")

    #####
    shinyServer(function(input, output) {


      # Widget date
      output$value <- renderPrint({ input$dates })


      #Plot hour
      output$HourPlot <- renderPlot({

        ggplot()+geom_line(data = pwhour, aes(x = date, y = y_pred, color =       "blue"))  +
          geom_line(data = pwhour, aes(x = date, y = powerall, color =  "red")) +xlab('Date') +
      ylab('Power consumption')+scale_x_datetime(limits=c(as.POSIXct(input$dates[1]),as.POSIXct(input$dates[2])))
      })
      })

我已经尝试在有光泽的服务器调用之后将我的读取csv置于被动状态，但它没有帮助。我的本地环境是空的。在重新启动计算机之前，它运行良好。非常感谢提前！

未找到闪亮对象（未加载数据集）

0 个答案: