Skip to content

Instantly share code, notes, and snippets.

View jessjaco's full-sized avatar

Jesse Anderson jessjaco

View GitHub Profile
D_start <- function(D) D[1]
D_mat <- function(D) D[2]
D_sen <- function(D) D[3]
D_end <- function(D) D[4]
G_start <- function(G) G[1]
G_mat <- function(G) G[2]
G_sen <- function(G) G[3]
G_end <- function(G) G[4]
rate <- function(D1, D2, G1, G2) (G2 - G1) / (D2 - D1)
@jessjaco
jessjaco / shiny_docker.md
Last active August 24, 2018 22:52
Shiny on docker basics

Barest of barebone examples

  1. Install docker and git (as necessary).
  2. Make a shiny app. For our purposes, let's use the official examples.
$ git clone https://github.com/rstudio/shiny-examples.git
  1. Run in container from rocker/shiny image.
@jessjaco
jessjaco / index.html
Created March 24, 2017 21:48
Scatterplot
<!doctype HTML>
<meta charset = 'utf-8'>
<html>
<head>
<script src='//ramnathv.github.io/rCharts/libraries/widgets/polycharts/js/polychart2.standalone.js' type='text/javascript'></script>
<style>
.rChart {
display: block;
@jessjaco
jessjaco / index.html
Created March 24, 2017 21:44
My Chart
<!doctype HTML>
<meta charset = 'utf-8'>
<html>
<head>
<script src='//ramnathv.github.io/rCharts/libraries/widgets/polycharts/js/polychart2.standalone.js' type='text/javascript'></script>
<style>
.rChart {
display: block;
library(rvest)
library(dplyr)
the_file <- '~/rr.csv'
rr <- read_html("https://www.radioreference.com/apps/db/?ctid=95")
html_nodes(rr, '.w1p')[1:43] %>%
html_table %>%
bind_rows %>%