topepo

library(shiny)
library(ggplot2)
library(dplyr)
library(yardstick)

theme_set(theme_bw())

n <- 1000

set.seed(124254)

jcblum

Some tools to help with relative paths, and a hasty napkin-sketch of things you might do with them

First, the tools

fs has fantastic tools for path computations!

# install.packages("fs")

# The stuff I'll use below... but there's tons that the package can do

tjmahr

# Things that need to be done just once
if (FALSE) {
  # We need the dev version of ggrepel
  devtools::install_github("slowkow/ggrepel")

  # Install Lato font on machine, then import it into extrafont library
  extrafont::font_import(pattern = "Lato")
}

hadley

library(tidyverse)
library(rvest)

url <- "https://en.wikipedia.org/wiki/The_Great_British_Bake_Off_(series_3)"
page <- read_html(url)

table <- page %>% 
  html_nodes("table.wikitable") %>% 
  .[[2]]

clauswilke

---
title: "World maps"
output:
  html_document:
    df_print: paged
---

```{r echo = FALSE, message = FALSE}
library(tidyverse)
library(sf)

jnolis

library(tidyverse)

# here is a table that spreads the way you'd want (with two rows):

tribble(
   ~a, ~b, ~c,
  "a", "x", 3,
  "a", "y", 2,
  "b", "x", 4,
  "b", "y", 7

j9ac9k

tap 'homebrew/fuse'
tap 'homebrew/dupes'
tap 'homebrew/cask'
tap 'homebrew/cask-fonts'
tap 'homebrew/cask-versions'
tap 'homebrew/cask-drivers'

cask_args appdir: '/Applications'

brew 'ack'

stephlocke

library(tidyverse)
library(rvest)

"https://en.wikipedia.org/wiki/List_of_superhero_debuts" %>%
  read_html() %>%
  html_nodes(xpath = "//*[@id='mw-content-text']/div/table") %>%
  map(html_table, fill = TRUE) %>%
  map_df( ~ mutate(., `Year Debuted` = as.character(`Year Debuted`))) %>%
  mutate(`Char_Team` = coalesce(`Character / Team / Series`, `Character / Team`)) %>%
  select(Char_Team, Year_Debut = `Year Debuted`) %>%

hrbrmstr

bhive01

---
title: "Untitled"
author: "Brandon Hurr"
date: "4/18/2018"
output:
  beamer_presentation:
    latex_engine: xelatex
---

```{r setup, include=FALSE}