- Install docker and git (as necessary).
- Make a shiny app. For our purposes, let's use the official examples.
$ git clone https://github.com/rstudio/shiny-examples.git
- Run in container from
rocker/shiny
image.
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) |
$ git clone https://github.com/rstudio/shiny-examples.git
rocker/shiny
image.<!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; |
<!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 %>% |