gadenbuie

library(tidyverse)
library(tidytext)

mueller_report <- read_csv("mueller_report.csv")

mueller_report_tidy <- 
  mueller_report %>% 
  tidytext::unnest_tokens(word, text)

mueller_report_tidy %>% 

gadenbuie

#!/bin/bash

# https://docs.docker.com/install/linux/docker-ce/debian/

# Get certificates
echo "Installing certificates..."
sudo apt-get update
sudo apt-get install -y \
    apt-transport-https \
    ca-certificates \

gadenbuie

library(tidyverse)

spread_var <- function(df, varname) {
  varname <- rlang::enquo(varname)
  spread(df, key = !!varname, count)
}

head(tidyr::table2)
#> # A tibble: 6 x 4

gadenbuie

#!/bin/bash

is_inside_git_repo() {
  [ -d .git ] || git rev-parse --git-dir > /dev/null 2>&1
}

has_origin_remote() {
  git remote get-url origin > /dev/null 2>&1
}

gadenbuie

library(tidyverse)
library(rtweet)

tweets <- NULL
keep_going <- TRUE
i <- 1
while (keep_going && i <= 10) {
  cat("\n", i, "...", sep = "")
  tweets.this <- get_timeline(
    "everycolorbot",

gadenbuie

library(shiny)
library(dplyr)
library(rtweet)

tweets <- search_tweets("#rstats", n = 5, include_rts = FALSE)

# https://github.com/mkearney/rtweet/pull/305/files
tweet_embed <- function(screen_name,status_id,...){
    
    stem <- 'https://publish.twitter.com/oembed'

gadenbuie

# Connect Via RJDBC -------------------------------------------------------
library(RJDBC)
drv <- JDBC("oracle.jdbc.OracleDriver", classPath="~/import/instantclient_12_2/ojdbc8.jar")
con <- dbConnect(drv,"jdbc:oracle:thin:@server:1521:database", 
                 rstudioapi::askForSecret("Username"), 
                 rstudioapi::askForSecret("Database Password"))
dbGetQuery(con,"select count(*) from schema.table")


# Setup dplyr and dbplyr to work with RJDBC -------------------------------

gadenbuie

#!/usr/bin/env RScript
messages <- purrr::map_chr(devtools::test(),
                           list("results", 1, "message"))
q("no", status = sum(messages != "success"))

gadenbuie

if (!requireNamespace("gh", quietly = TRUE)) {
  install.packages("gh")
}
if (!requireNamespace("roomba", quietly = TRUE)) {
  library(devtools)
  install_github("ropenscilabs/roomba")
}

library(dplyr)

gadenbuie

---
title: "ggplot tutorial"
subtitle: "with Emi Tanaka's kunoichi + ninjutsu theme"
author: "<br><br>Gina Reynolds"
date: "<br>2018/09/16"
output:
  xaringan::moon_reader:
    chakra: libs/remark-latest.min.js
    lib_dir: libs
    css: ["kunoichi", "ninjutsu"]