小编Phi*_*ppe的帖子

我已经使用了闪亮的几个小规模的项目,我现在尝试shinydashboard包看起来很有希望.我还希望使用plotly集成交互式绘图(尽管将来可以考虑其他库).

运行在flash(示例)中集成plot的示例没有问题,但在尝试使用shinydashboard实现类似结果时遇到问题.

例如,下面的代码(app.R)无法正常工作.

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




data(movies, package = "ggplot2")
minx <- min(movies$rating)
maxx <- max(movies$rating)


#######
####### UI
#######

ui <- dashboardPage(

  ############# Header
  dashboardHeader(title = "Test"),

  ############# Sidebar
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))
    )
  ),


  ############# Dashboard body
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      box(plotOutput("plot1"), width=6, height=500),
      box(plotOutput("plot2"), width=6, height=500)
    )
  )
)


#######
####### Server
#######


server <- function(input, output, session) …