Общие сведения

valueBox(500, 
         icon = "fa-boxes", 
         caption = "Это пятьсот", 
         color="warning")

gauge(39, min = 35, max = 50, symbol = 'градусов', 
      gaugeSectors(
        success = c(35, 37), 
        warning = c(37, 39), 
        danger = c(30, 50)
        )
      )
      

Раздел со вкладками

model1 <- lm(mpg ~ cyl, mtcars)

kbl.tbl2 <-knitr::kable(broom::tidy(model1), format="html", digits=2)

kableExtra::kable_styling(kbl.tbl2, bootstrap_options=c("hover", "striped", "condensed")) 

Сториборды

Исходный код

Исходный код этого дэшборда dashboard_example.Rmd

---
title: "Мой первый дэшборд"
output: 
  flexdashboard::flex_dashboard:
    logo: znak.png
    theme: 
      version: 5
      bootswatch: lux
    orientation: columns
    vertical_layout: fill
---

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

# Общие сведения {#part1}

<!-- Здесь начинается содержание первой вкладки. Заголовок первого уровня - будет частью меню. Заголовкам на русском необходимо присваивать идентификатор через {#part1} -->


## Column left {data-width=70}

Заголовок второго уровня означает отдельную колонку. Названия колонок не отображаются, поэтому можно их называть как угодно. Если колонки нужны разной ширины, то можно добавить к названию колонки "{data-width=70}", где цифра соответствует ширине в от ширины экрана.



```{r message=FALSE, warning=FALSE}
library(ggplot2)
ggplot(cars, aes(speed, dist))+geom_point()+geom_smooth()+theme_classic()

```




## Column right {data-width=30}

### valueBox

Помогает подсветить важные части - производится на языке R.

```
valueBox(500, 
         icon = "fa-boxes", 
         caption = "Это пятьсот", 
         color="warning")
```

### Вторая колонка, первый раздел

```{r}
library(flexdashboard)
valueBox(500, 
         icon = "fa-boxes", 
         caption = "Это пятьсот", 
         color="warning")

```

### Вторая колонка, второй раздел

```{r}
valueBox(300, icon = "fa-pencil", caption="Потрясающе, а это триста", color="primary")
```

### gauge

Другой способ подсветки важных цифр

```
gauge(39, min = 35, max = 50, symbol = 'градусов', 
      gaugeSectors(
        success = c(35, 37), 
        warning = c(37, 39), 
        danger = c(30, 50)
        )
      )
      
```

### gauge1

```{r}

gauge(91, min = 0, max = 100, symbol = '%', gaugeSectors(
  success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))

```


### Температура тела

```{r}

gauge(40, min = 35, max = 50, symbol = 'градусов', 
      gaugeSectors(
        success = c(35, 37), 
        warning = c(37, 39), 
        danger = c(30, 50)
        )
      )

```

# Раздел со вкладками {data-icon="fa-table" #tabsets}



## Column {.tabset}

### Иконки

Чтобы добавить иконку к заголовку, укажите соответвтующий атрибут data-icon="fa-table", названия и галарея иконок - [здесь](https://fontawesome.com/icons?d=gallery&m=free)






### Модель

```{r message=FALSE, warning=FALSE, paged.print=TRUE, results='asis', echo=TRUE}
model1 <- lm(mpg ~ cyl, mtcars)

kbl.tbl2 <-knitr::kable(broom::tidy(model1), format="html", digits=2)

kableExtra::kable_styling(kbl.tbl2, bootstrap_options=c("hover", "striped", "condensed")) 

```




### Данные

```{r paged.print=TRUE, results='asis'}

kbl.tbl <- knitr::kable(mtcars[1:10,1:2], format="html")

kableExtra::kable_styling(kbl.tbl, bootstrap_options=c("hover", "striped", "condensed")) 

```



## Column2 {data-width=650}

### Иконки


![](icons.png)



# Сториборды {data-icon="fa-boxes"  #summary}

## Column {data-width=650}

### Сториборд удобен для представления повествования

[Посмотрите пример, очень похожий на этот](storyboard.html)




# Исходный код {data-icon="fa-code" #source}


Исходный код этого дэшборда [dashboard_example.Rmd](dashboard_example.Rmd)


```{r}

cat(readLines("dashboard_example.Rmd"), sep = "\n")

```