rosalieb

library(tidyverse)
library(gganimate)

animate(
    crossing(
        p = seq(0.1, 5, by = 0.1),
        theta = seq(0, 2*pi, length.out = 101)
    ) %>% 
        mutate(r = 1 / (abs(cos(theta))^p + abs(sin(theta))^p)^(1/p)) %>% 
        ggplot(aes(theta, r, fill = p)) + 

rosalieb

#' Render Table of Contents
#' 
#' A simple function to extract headers from an RMarkdown or Markdown document
#' and build a table of contents. Returns a markdown list with links to the 
#' headers using 
#' [pandoc header identifiers](http://pandoc.org/MANUAL.html#header-identifiers).
#' 
#' WARNING: This function only works with hash-tag headers.
#' 
#' Because this function returns only the markdown list, the header for the