我正在构建一个闪亮的应用程序,它应该显示一个bupaR
process_map
,这是一种工作。
遗憾的是,process_map()
-function返回一个dgr_graph
-object,它不能用DiagrammeR::renderGrViz()
或DiagrammeR::renderDiagrammeR()
函数呈现。我找到了一种将其转换为带有grViz / htmlwidget
-object的render_graph()
的方法,但是这样就不能很好地缩放图形。这尤其糟糕,因为我处理的是非常长的线性图。
这是一个MWE:
# server.R
library(DiagrammeR)
library(bupaR)
shinyServer(
function(input, output) {
plot <- patients %>%
process_map(rankdir = "TB",
render = FALSE)
output$diagram <- renderGrViz({
render_graph(plot)
})
}
)
# ui.R
library(DiagrammeR)
shinyUI(fluidPage(
titlePanel("DiagrammeR + shiny"),
grVizOutput(outputId = "diagram")
))
有没有一种更好的方式来显示一个dgr_graph
-object的闪亮,以填补整个应用程序的宽度,而不只是一个邮票后的大小在中间?理想是自适应的,不需要固定的像素宽度。
发布于 2019-11-18 08:33:30
事实证明,问题不是服务器上的render_graph
-function,而是UI中renderGrViz
-function的默认设置。当您将它设置为grVizOutput(outputId = "diagram", height = "100%")
时,它工作得很好。
https://stackoverflow.com/questions/58819042
复制相似问题