Полностью не могу показать на блестящем (я скачал пропатченный файл. Но проблема такая же, как обычно.) - PullRequest
Новая
       16

Полностью не могу показать на блестящем (я скачал пропатченный файл. Но проблема такая же, как обычно.)

0 голосов
/ 30 ноября 2018 
library(shiny)
library(plotly)
library(dplyr)
library(scales)
library(reticulate)
source_python("cems_api.py")

ui <- fluidPage(
  plotlyOutput("plot")
)

server <- function(input, output) {

  # renderPlotly() also understands ggplot2 objects!
  output$plot <- renderPlotly({
    SO_table$polno <- as.factor(unlist(SO_table$polno))
    SO_table$m_time <- as.POSIXct(SO_table$m_time, format="%Y/%m/%d %H:%M")
    SO_ggplot<- SO_table %>% ggplot(aes(x = m_time, y = m_val, color=polno)) + 
      geom_point() +
      geom_line()+
      theme_bw()+
      labs(y="ppm")+
      scale_x_datetime(date_labels="%m/%d %H:%M:%S")
    SO_linechart <- ggplotly(SO_ggplot)
  })

}

shinyApp(ui, server)

Привет всем.В коде есть большая проблема, с которой я не могу справиться.Он показывает, что:

Предупреждение: ошибка в isReallyReal: x должен иметь тип double.

Но я установил и проверил, что класс и typeof совпадают с набором данныхв примере.Итак, я не знаю, как это решить.Кто-нибудь может научить меня?

Вот мой код и необходимый файл.https://drive.google.com/open?id=12JPV9AaLfoCBb_VsFJOiDowdQHwOu_Qy

...