Базовый блестящий, не отображающий график

У меня есть этот блестящий код, и сюжет по какой-то причине не отображается. Не могли бы вы протянуть мне руку? Является основным блестящим сюжетом для рендеринга на главной панели. Проверяются нагрузки раз и все еще не отображаются.Базовый блестящий, не отображающий график

library(shiny) 
library(plotly) 
library(ggplot2) 

ui <- fluidPage(
    (titlePanel("APP & MEP | Size (m2) ~ Hours", windowTitle = "app")), 

    sidebarLayout( 
    sidebarPanel(
     checkboxGroupInput(inputId = "checkgroup", 
         label = "Select Deparments", 
         choices = c("All", "ELE", "HVAC", "MAN", "PH", "LV"), 
         selected = "All", inline = F), 
     radioButtons(inputId = "radio", 
        label = "ADD Stat_Smooth?", 
        choices = c("YES","NO"), 
        inline = T), 
     sliderInput(inputId = "slider", 
        label = "SPAN Setting", 
        min = 0.2, max = 2, value = 1, 
        ticks = T) 
    ), 

    mainPanel(plotOutput(outputId = "plot33")) 
) 
) 


server <- function(input, output){ 

    output$plot33 <- renderPlotly({ 

    gg <- ggplot(sizedf, aes(SIZE, Hours)) + geom_point(aes(color = Department)) + ggtitle("Size(m2) vs Hours per department") 

    p <- ggplotly(gg) 
    p 
    }) 
} 

shinyApp(ui = ui, server = server)

источник

2016-03-07 Tomas Alonso Rehor

не уверен, что я получаю сообщение об ошибке вы получаете, но объект «sizedf» не найден говорит, что вы не загрузить набор данных в вашем примере. – MLavoie

Но структура в порядке? –

в вашем графике ui.ROutput следует заменить на plotlyOutput – MLavoie

Я видел эту же ошибку уже несколько раз.

plotlyOutput() следует использовать, не plotOutput()

источник

2016-03-07 10:32:03 MLavoie

Базовый блестящий, не отображающий график

ответ

Смежные вопросы