cbind(
  Name = list.files("essays/", "*.Rmd"),
  ldply(list.files("essays/", "*.Rmd", full.names = TRUE), file.info)
) %>%
  filter(! Name %in% c("about.Rmd", "code.Rmd", "index.Rmd")) %>%
  arrange(desc(mtime)) %>%
  mutate(`Estimated Length (words)` = floor(size/7)) %>%
  select(Name, `Estimated Length (words)`, `Last Modified`=mtime) %>%
  mutate(Name = paste0("<a href='essays/", str_sub(Name, 1, -5), ".html'>",
    Name %>%
      str_replace_all("([a-z])([A-Z])", "\\1 \\2") %>%
      str_replace_all("([A-Z]+)([A-Z])", "\\1 \\2") %>%
      str_replace_all("([a-z]+)([0-9]+)", "\\1 \\2") %>%
      str_sub(1, -5), "</a>")) %>%
  datatable(escape = FALSE)