koncina

This is the solution chunk written in a child Rmd file. The value of `my_var` defined in the parent Rmd is `r my_var`...
**markdown** formatting is possible and we can include additional code chunks:

```{r}
plot(cars)
```

```{block, opts.label = "alert"}
This is even a nested _Rmarkdowm_ box
```

koncina

library(tidyverse)
#Rcpp::sourceCpp('string_vector_time.cpp')

replicates <- 50

tibble(size = rep(20000, replicates * 2),
       allocate = rep(c(FALSE, TRUE), each = replicates)) %>%
  mutate(execution_time = map2(size, allocate, get_string_vector_times)) %>%
  mutate(map(execution_time, enframe)) %>%
  unnest() %>%

koncina

slides > slide > hgroup:not(.auto-fadein) {
  background: gray;
}

slides > slide > hgroup > h2 {
  background: green;
}

slides > slide > hgroup > h3 {
  background: yellow;

koncina

---
title: "New boxes"
author: "Eric Koncina"
date: "22 novembre 2016"
output:
  iosp::ioslides_plus:
    smaller: yes
    widescreen: yes
    fig_retina: null
---

koncina

# From http://stackoverflow.com/a/37122306
txtcol <- function(x, color) {
  outputFormat = knitr::opts_knit$get("rmarkdown.pandoc.to")
  if (outputFormat == 'latex')
    paste("\\textcolor{", color, "}{", x, "}", sep = "")
  else if (outputFormat == 'html')
    paste("<font color='", color, "'>", x, "</font>", sep = "")
  else
    x
}

koncina

# Eric Koncina <mail@koncina.eu>; 01/09/2016

# Imports the tables from a graphpad prism xml file (*.pzfx) into a dataframe
# Works with simple tables (One way ANOVA)

library(xml2)
library(dplyr)
library(purrr)
library(readr)