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

我和shiny一起工作有问题。一切都进行得很顺利，现在，我遇到了“错误：未找到对象‘pwhoor’”的问题

这里是我的服务器代码：

    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])))
      })
      })

setwd（“~mypath”）
###############################################################
#####加载数据集##############################################
phouris
mypath
一个真正的文件夹？如果是这样，请尝试
setwd（“~/mypath”）
谢谢
mypath
是指向文件夹
'~/Myfolder/Mysubfolder/Mysubfolder'
的路径。我已尝试更改“by”，但无效。您将如何将文件放在应用程序文件夹中？如果您将数据加载放在服务器功能中会怎么样？我已尝试过，但我遇到相同的错误。