Instantly share code, notes, and snippets.

View storyboard-gettbinr-2017
## Get required packages - managed using pacman
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load("getTBinR")
p_load("ggplot2")
p_load("ggrepel")
p_load("scales")
p_load("viridis")
p_load("dplyr")
p_load("forcats")
p_load("ggridges")
View playing_with_gams_in_tb
if (!require("pacman")) install.packages("pacman")
p_load("getTBinR")
p_load("tidyverse")
p_load("mgcv")
p_load("zoo")
tb <- get_tb_burden()
tb_features <- tb %>%
filter(e_inc_100k >= 200, e_inc_num > 100) %>%
View nginx-conf
# If we receive X-Forwarded-Proto, pass it through; otherwise, pass along the
# scheme used to connect to this server
map $http_x_forwarded_proto $proxy_x_forwarded_proto {
default $http_x_forwarded_proto;
'' $scheme;
}
# If we receive X-Forwarded-Port, pass it through; otherwise, pass along the
# server port the client connected to
map $http_x_forwarded_port $proxy_x_forwarded_port {
default $http_x_forwarded_port;
View bgf_wrapper.sh
#!/bin/bash
cd $repo
git reflog expire --expire=now --all && git gc --prune=now --aggressive
cd ..
java -jar bfg-$(version).jar --strip-blobs-bigger-than 100M $repo
View keybase.md

Keybase proof

I hereby claim:

  • I am seabbs on github.
  • I am seabbs (https://keybase.io/seabbs) on keybase.
  • I have a public key ASDWcflm0qRi8bGzqTjCLreVJSfzjC9UKr0UnsWBtQzM4wo

To claim this, I am signing this object:

View splash.5.4.getTBinR
## Get required packages - managed using pacman
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load("getTBinR")
p_load("ggplot2")
p_load("viridis")
p_load("dplyr")
p_load("forcats")
p_load("ggridges")
p_load_gh("thomasp85/patchwork")
View wrapper-dockerfile
FROM seabbs/showmeperseus:latest
MAINTAINER "Sam Abbott" contact@samabbott.co.uk
WORKDIR /home/rstudio/ShowMePerseus
EXPOSE 3838
CMD R -e 'shiny::runApp(port = 3838)'
View thresher-demo
#' Load the package
library(Thresher)
#' Generate random data
set.seed(3928270)
ranData <- matrix(rnorm(100*12), ncol=12)
colnames(ranData) <- paste("G", 1:12, sep='')
#' Perform dim reduction
View ggpres
#' Adjust test size on a ggplot to make it visible in presentations
#'
#' Change the size of text on a \code{ggplot} so that a plot designed to look good in print is readable when included in a slide in a presentation (or vice verse)
#' @param g A \code{ggplot} graph
#' @param title_size The font size for the title, legend title and axes titles
#' @param text_size The font size for for the axis lables, legend text and facet text
#' @return A \code{ggplot} graph
#' @author Ella Kaye
#' @examples
#'
View rif_res_tb
## Get packages
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load_gh("seabbs/getTBinR")
p_load_gh("thomasp85/patchwork")
p_load("tidyverse")
p_load("ggridges")
p_load("viridis")
## Get data