install.packages("flexdashboard")
rmarkdown::draft("dashboard.Rmd",
template = "flex_dashboard",
package = "flexdashboard")
---
title: "Flex Dashboard"
output: flexdashboard::flex_dashboard
---
### This is a box.
This is some text in the box.
## My first column
### My first box
This is some text in a box.
## My second column
### My second box
This is some slightly different text in a box.
# Page one
### My first box
This is some text in a box.
# Page two
### My second box
This is some slightly different text in a box.
###
)##
)### Iris data
```{r}
qplot(Sepal.Length, Petal.Length, data = iris, color = Species)
```
### Birthplace of R
```{r}
library(leaflet)
m <- leaflet() %>%
addTiles() %>%
addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
```
library(flexdashboard)
articles <- 204
valueBox(articles,
icon = "fa-pencil",
caption = "Articles per Day")
satisfaction <- 86
gauge(satisfaction, min = 0, max = 100, symbol = '%',
label = "Satisfaction", gaugeSectors(
success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))
## Column {.tabset}
### Chart
```{r}
qplot(Sepal.Length, Petal.Length, data = iris, color = Species)
```
### Data
```{r}
knitr::kable(iris)
```
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths) %>%
dyRangeSelector()
http://rmarkdown.rstudio.com/flexdashboard/
Acknowlegements: