Question

我一直在我正在加载到工作区的.csv文件集上运行以下一系列命令。一切都很顺利，直到我尝试了一个新的数据集。

当我尝试在我的Shiny App中显示数据时，我一直收到错误： UseMethod出错（＆＃34; as.xts＆＃34;）：没有适用于＆＃39; as.xts＆＃39;的方法应用于类＆＃34; NULL＆＃34;

的对象

完成以下命令后，我没有收到任何错误：

Data1 <- read.csv("Data1.csv", stringsAsFactors = FALSE)
Data1$Time <- as.POSIXct(strptime(Data1$Time,"%m/%d/%Y %H:%M:%S" ))
Data1 <- xts(Data1[,-1], order.by=Data1[,1])

它很适合一个.csv，当我从第一个.csv复制相同的时间列到新的.csv时，它不会加载。

更新现在，每个输入列都在我的dygraph上绘制。我知道我的问题出在dygraph(dataSource(), main = "Data")。我知道dataSource（）导致所有内容都被绘制成图形。如何制作以便只绘制选定的输入？

我的server.R代码如下：

dataSource1 <- reactive({
    switch(input$dataSelection1,
        "File1" = File1,
        "File2" = File2,
        "File3" = File3,
        "File4" = File4,
        "File5" = File5) 
})

observeEvent(input$dataSelection1, { 
updateSelectizeInput(session, 'component1', choices = names(dataSource1())) 

}) 

 output$TempRise <- renderDygraph({

    dygraph(dataSource1(), main = "Data") %>%
      dyRangeSelector() %>%
      dyOptions(colors = RColorBrewer::brewer.pal(8, "Dark2"))

}）

我的ui.R代码如下： sidebarPanel（

  selectInput('dataSelection', 'DATASELECTION', choice = NULL),


  selectInput("dataSelection1", label = "Choose a File", 
              choices = c("File1","File2", "File3","File4", "File5")),
  selectInput("component1", label = "Choose a Second Component",
              choices = NULL),

 mainPanel(
  dygraphOutput("Data"),

在UseMethod中接收错误（＆＃34; as.xts＆＃34;） - 无法解释原因

0 个答案: