I’m testing to see whether syntax highlighting is working. This is just random code from the internet.

library(scatterpie)
library(totalcensus)
library(dplyr)metro <- read_acs1year(
    year = 2016,
    states = "US",
    table_contents = c(
        "white = C02003_003", 
        "black = C02003_004", 
        "asian = C02003_006"
    ),
    geo_headers = "CBSA",
    summary_level = "310"
) %>%
    mutate(others = population - white - black - asian)

us <- map_data('state')
ggplot(us, aes(long, lat)) +
    geom_map(map=us, aes(map_id=region), fill="grey97", color="grey") +
    geom_scatterpie(data = largest, 
                    aes(lon, lat, r = sqrt(total)/2000),
                    cols = c("white", "black", "asian", "others"), 
                    alpha = 0.5) +
    scale_fill_manual(
        breaks = c("white", "black", "asian", "others"),
        labels = c("white alone", "black alone", "asian alone", "others"),
        values = c("asian" = "orange",
                   "white" = "white",
                   "black" = "black",
                   "others" = "cyan")
    )

Here’s an example:

## this is a comment
$ echo this is a command
this is a command

## edit the file
$vi foo.md
+++
date = "2014-09-28"
title = "creating a new theme"
+++

bah and humbug
:wq

## show it
$ cat foo.md
+++
date = "2014-09-28"
title = "creating a new theme"
+++

bah and humbug
$