R Shiny 使用 Highcharter 的 hw_grid 不起作用

huangapple
go评论93阅读模式
英文:

R Shiny with Highcharter hw_grid not working

问题

  1. library(highcharter)
  2. library(shiny)
  3. library(shinydashboard)
  5. ui <- dashboardPage(
  6.   dashboardHeader(title = "hw_grid in shiny", titleWidth = 500),
  7.   dashboardSidebar(width = 150),
  9.   dashboardBody(
  10.     highchartOutput("distPlot")
  11.   )
  12. )
  14. server <- function(input, output) {
  16.   output$distPlot <- renderHighchart({
  17.     charts <- lapply(1:9, function(x) {
  18.       hchart(ts(cumsum(rnorm(100)))
  19.     })
  20.     hw_grid(charts, rowheight = 300)
  21.   })
  22. }
  24. shinyApp(ui = ui, server = server)
英文:

I want to use hw_grid from highcharter to display various plots in the UI. However, the plots do not show. Here is a sample code. If you run the code outside of shiny it displays the plots but shiny does not.

  1. library(highcharter)
  2. library(shiny)
  3. library(shinydashboard)
  6. ui &lt;- dashboardPage(
  7.   dashboardHeader(title = &quot;hw_grid in shiny&quot;, titleWidth  = 500),
  8.   dashboardSidebar(width = 150),
  10.       dashboardBody(
  11.            highchartOutput(&quot;distPlot&quot;)
  12.         )
  13.     )
  16. server &lt;- function(input, output) {
  18.     output$distPlot &lt;- renderHighchart({
  19.       charts &lt;- lapply(1:9, function(x) {
  20.         hchart(ts(cumsum(rnorm(100))))
  21.          })
  22.     hw_grid(charts, rowheight = 300)
  23.       
  24.     })
  25. }
  27. shinyApp(ui = ui, server = server)

答案1

得分: 2

自从这是highcharter绘图的列表（而不是单个highcharter绘图），请使用renderUI和uiOutput。

  1. ui <- dashboardPage(
  2.   dashboardHeader(title = "hw_grid in shiny", titleWidth  = 500),
  3.   dashboardSidebar(width = 150),
  4.   
  5.   dashboardBody(
  6.     uiOutput("distPlot")
  7.   )
  8. )
  11. server <- function(input, output) {
  12.   
  13.   output$distPlot <- renderUI({
  14.     charts <- lapply(1:9, function(x) {
  15.       hchart(ts(cumsum(rnorm(100))))
  16.     })
  17.     hw_grid(charts, rowheight = 300)
  18.     
  19.   })
  20. }
  22. shinyApp(ui = ui, server = server)
英文:

Since these are list of highcharter plots (and not a single highcharter plot) use renderUI and uiOutput.

  1. library(highcharter)
  2. library(shiny)
  3. library(shinydashboard)
  6. ui &lt;- dashboardPage(
  7.   dashboardHeader(title = &quot;hw_grid in shiny&quot;, titleWidth  = 500),
  8.   dashboardSidebar(width = 150),
  9.   
  10.   dashboardBody(
  11.     uiOutput(&quot;distPlot&quot;)
  12.   )
  13. )
  16. server &lt;- function(input, output) {
  17.   
  18.   output$distPlot &lt;- renderUI({
  19.     charts &lt;- lapply(1:9, function(x) {
  20.       hchart(ts(cumsum(rnorm(100))))
  21.     })
  22.     hw_grid(charts, rowheight = 300)
  23.     
  24.   })
  25. }
  27. shinyApp(ui = ui, server = server)

R Shiny 使用 Highcharter 的 hw_grid 不起作用

huangapple
  • 本文由 发表于 2023年3月9日 19:13:25
  • 转载请务必保留本文链接：https://go.coder-hub.com/75683828.html
  • r
  • r-highcharter
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定