hw_grid 小部件功能在 flexdashboard 中不起作用

Question

因为this issue want to put 6 highcharter graphs in one row like do they over here。它似乎在 flexdashboard

之外工作正常

data(diamonds, package = "ggplot2")
diamonds <- diamonds[-6]

map(names(diamonds), function(x){
  diamonds[[x]] %>% 
    hchart(showInLegend = FALSE) %>% 
    hc_add_theme(hc_theme_smpl()) %>% 
    hc_title(text = x) %>% 
    hc_yAxis(title = list(text = ""))
  }) %>% 
  hw_grid(rowheight = 225, ncol = 3)  %>% browsable()

请在此处找到一个简单示例，它如何在 flexdashboard 中不工作：

---
title: "test"
runtime: shiny
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---
```{r}
library(highcharter)
library(data.table)
library(ggplot2)
library(htmltools)
```


### trying to render with hw_grid

```{r}
sliderInput('ncol','ncol',min = 1,max=4,value = 2)
```


```{r}
renderHighchart({
  x <- hchart(data.table(a=c(1:5),b=c(1:5)), type='column', hcaes(x=a,y=b))
lst <- list(
  x,
  x,
  x,
  x
)

hw_grid(lst, rowheight = 300,ncol = input$ncol)  %>% browsable()
})
```

### hw_grid example without rendering

```{r}

x <- hchart(data.table(a=c(1:5),b=c(1:5)), type='column', hcaes(x=a,y=b))
lst <- list(
  x,
  x,
  x,
  x
)
ncol <- 4
# ncol <- input$ncol # need to have a render as this will triger the error: Operation not allowed without an active reactive context....
hw_grid(lst, rowheight = 300,ncol = ncol)  %>% browsable()
```

### rendering example

```{r}
renderHighchart({
  x <- hchart(data.table(a=c(input$ncol*1:5),b=c(.5 * input$ncol * 1:5)), type='column', hcaes(x=a,y=b))

})
```

Answer 1

尝试像这样一起使用 renderUI 和 htmlOutput：

---
title: "test"
runtime: shiny
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---
```{r}
library(highcharter)
library(data.table)
library(ggplot2)
library(htmltools)
library(purrr)
library(shiny)
```


### trying to render with hw_grid

```{r}
sliderInput('ncol','ncol',min = 1,max=4,value = 2)
```


```{r}
output$chart1 <- renderUI({
  x <- hchart(data.table(a=c(1:5),b=c(1:5)), type='column', hcaes(x=a,y=b))
  lst <- list(x,x,x,x)
  hw_grid(lst, rowheight = 300,ncol = input$ncol)
})

htmlOutput('chart1')
```

### hw_grid example without rendering

```{r}

x <- hchart(data.table(a=c(1:5),b=c(1:5)), type='column', hcaes(x=a,y=b))
lst <- list(
  x,
  x,
  x,
  x
)
ncol <- 4
# ncol <- input$ncol # need to have a render as this will triger the error: Operation not allowed without an active reactive context....
hw_grid(lst, rowheight = 300,ncol = ncol)  %>% browsable()
```

### rendering example

```{r}
renderHighchart({
  x <- hchart(data.table(a=c(input$ncol*1:5),b=c(.5 * input$ncol * 1:5)), type='column', hcaes(x=a,y=b))

})
```

hw_grid 小部件功能在 flexdashboard 中不起作用

hw_grid widget function not working in flexdashboard

shiny

htmlwidgets

flexdashboard

r-highcharter