我已经在几个小型项目中使用了闪亮，现在我正在尝试看起来很有前途的闪亮仪表板包。我还想使用 plotly 集成交互式绘图（尽管将来可以考虑其他库）。
我运行在闪亮（示例）中集成情节的示例没有问题，但在尝试使用闪亮仪表板实现类似结果时遇到问题。
例如，下面的代码 (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) {
output$plot1 <- renderPlot({
# a simple histogram of movie ratings
p <- plot_ly(movies, x = rating, autobinx = F, type = "histogram",
xbins = list(start = minx, end = maxx, size = 2))
# style the xaxis
layout(p, xaxis = list(title = "Ratings", range = c(minx, maxx), autorange = F,
autotick = F, tick0 = minx, dtick = 2))
})
output$plot2 <- renderPlot({
hist(movies$rating, col="blue")
})
}
shinyApp(ui, server)
该页面应该显示两个相似的图：一个使用 plotly 生成，另一个使用 R base 生成。第二个显示正确，但绘图显示在 Rstudio 查看器面板中。如果我使用 runApp() 函数在终端上运行应用程序，则会为仪表板打开一个网页，而另一个网页仅用于绘图交互式绘图。
我试图创建一些反应图（图的功能随着一些闪亮控件（如滑动条）的内容而变化）并且在查看器或另一个浏览器窗口/选项卡中打开的图被更新。所以一切似乎都正常，唯一的问题是情节图没有插入仪表板，而是插入到不同的位置（查看器或其他选项卡），这当然是一个问题。
尽管我进行了研究，但我找不到问题的解决方案（甚至有人提到它......）。有什么线索吗？