Можно ли встроить ориентированную на строки flexdashboard в раскадровку flexdashboard? - PullRequest
Новая
       14

Можно ли встроить ориентированную на строки flexdashboard в раскадровку flexdashboard?

0 голосов
/ 09 июля 2019

У меня есть следующие 2 панели. Я хочу включить ориентированную на строки панель инструментов в панель раскадровки.

рядно ориентированный flexdasboard 

---
title: "Row-Oriented"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: united
---

```{r setup, include=FALSE}
library(flexdashboard)
library(crosstalk)


# Making the data shared
sd <- SharedData$new(mtcars)
```

Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
# select cylinder range
filter_slider(id = "cylinder", label = "Num. of cyl", sharedData = sd, column = ~cyl)

# select hp range
filter_slider(id = "hp", label = "Horsepower", sharedData = sd, column = ~hp)
```

Row {data-height=550}
-------------------------------------
###
```{r}
library(plotly)

plot_ly(data = sd, x = ~disp, y = ~mpg) %>% 
  add_markers(color = ~cyl) %>% 
  layout(title = "disp vs mpg, Color = Cyl")
```

###
```{r}
library(plotly)

plot_ly(data = sd, x = ~disp, y = ~mpg) %>% 
  add_markers(color = ~hp) %>% 
  layout(title = "disp vs mpg, Color = hp")
```

Row {data-height=550}
-------------------------------------
###
```{r}
library(plotly)

plot_ly(data = sd, x = ~drat, y = ~qsec) %>% 
  add_markers(color = ~cyl) %>% 
  layout(title = "drat vs qsec, Color = Cyl")
```

###
```{r}
library(plotly)

plot_ly(data = sd, x = ~drat, y = ~qsec) %>% 
  add_markers(color = ~hp) %>% 
  layout(title = "drat vs qsec, Color = hp")
```

Раскадровка приборной панели 

---
title: "Storyboard"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    theme: united
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)

# Load data
data("mtcars")
```

### Row Oriented Dashboard Placeholder
```{r, echo=FALSE, include = FALSE}
htmltools::includeHTML("row_oriented_flexdashboard.html")
```


### Second part 

```{r}
library(ggplot2)

ggplot(data = mtcars, aes(x = disp, y = mpg)) +
  geom_point(aes(color = gear))
```

Проблема:

Если я сделаю include = FALSE в разделе ### Row Oriented Dashboard Placeholder на панели раскадровки, то он будет отображаться правильно (только первый раздел пуст). Но если include = TRUE, то он не отображает ориентированную на строки панель инструментов.

Как я могу успешно встроить HTML-файл ориентированной на строки панели мониторинга в панель раскадровки?

Основная причина такого встраивания заключается в том, что опция Inputs недоступна в раскадровке. Если есть возможность взломать это, пожалуйста, дайте мне знать. Тогда я включил бы все фрагменты кода в раскадровку.

...