2016-03-07 95 views
0

我有这个闪亮的代码和情节是由于某种原因没有显示。你能帮我伸出手吗? 是在主面板中呈现的基本闪亮情节。检查负载的时间,仍然没有绘图。基本闪亮不渲染阴谋

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) 
+0

不知道我得到你得到的错误,但对象sizedf'未找到告诉我,你没有加载数据集中在你的榜样。 – MLavoie

+0

但结构可以吗? –

+0

在你的ui.R plotOutput应该被plotlyOutput替换 – MLavoie

回答

1

我已经看到了几次这个相同的错误。

plotlyOutput(),应使用不plotOutput()