Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ---
- title: "Untitled"
- author: "Emily Riederer"
- date: "5/15/2019"
- output: html_document
- ---
- ```{r}
- # dummy data
- data <- data.frame(
- METRIC = paste('var', 1:10),
- VAL = runif(10),
- stringsAsFactors = FALSE
- )
- ```
- ```{r results = 'asis'}
- # automatically generate <style> block of css for each tab
- tab_number <- 1:nrow(data)
- tab_color <- ifelse(data$VAL > 0.75, 'green', ifelse(data$VAL > 0.25, 'yellow', 'red'))
- css <- sprintf(".nav-pills>li:nth-child(%d){background:%s;}", tab_number, tab_color)
- css <- paste(css, collapse = "\n")
- css <- paste("<style>", css, "</style>")
- cat(css)
- ```
- # section {.tabset .tabset-pills}
- ```{r, results='asis'}
- # dynamically generate code for each chunk
- vars <- data$METRIC
- val <- data$VAL
- out <- paste("##", vars, "<br>\n", "The value is ", val, "<br>\n<br>\n\n")
- invisible(lapply(out, cat))
- ```
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement