Live notes, so an incomplete, partial record of what actually happened.
Tags: collabw16
My asides in {}
Stream/Deck:
#!/usr/bin/env python | |
# -*- coding: utf-8 -*- | |
# Copyright (c) 2014 Alexey Kutepov a.k.a. rexim | |
# Permission is hereby granted, free of charge, to any person | |
# obtaining a copy of this software and associated documentation files | |
# (the "Software"), to deal in the Software without restriction, | |
# including without limitation the rights to use, copy, modify, merge, | |
# publish, distribute, sublicense, and/or sell copies of the Software, |
[include] | |
# For user/credentials/token/etc | |
path = ~/.gitconfig.local | |
[core] | |
editor = vim | |
excludesfile = ~/.gitignore | |
[color] | |
branch = auto | |
diff = auto | |
status = auto |
darken <- function(color, factor=1.4){ | |
col <- col2rgb(color) | |
col <- col/factor | |
col <- rgb(t(col), maxColorValue=255) | |
col | |
} | |
lighten <- function(color, factor=1.4){ | |
col <- col2rgb(color) |
<a href="http://bioconductor.org/packages/stats/bioc/derfinderData.html"><img border="0" src="http://www.bioconductor.org/shields/downloads/derfinderData.svg" title="Percentile (top 5/20/50% or 'available') of downloads over last 6 full months. Comparison is done across all package categories (software, annotation, experiment)."></a> <a href="https://support.bioconductor.org/t/derfinderData/"><img border="0" src="http://www.bioconductor.org/shields/posts/derfinderData.svg" title="Support site activity, last 6 months: tagged questions/avg. answers per question/avg. comments per question/accepted answers, or 0 if no tagged posts."></a> <a href="http://www.bioconductor.org/packages/release/data/experiment/html/derfinderData.html#svn_source"><img border="0" src="http://www.bioconductor.org/shields/commits/data-experiment/derfinderData.svg" title="average Subversion commits (to the devel branch) per month for the last 6 months"></a> | |
Status: Bioc-release <a href="http://www.bioconductor.org/packages/release/data/e |
;; This is inspired by Org mode: hitting C-c C-c inside a Makefile | |
;; rule will run "make TARGET" where TARGET is the name of the current | |
;; target at point. | |
;; Stephen Eglen 2016-01-31 GPL applies. | |
(defun makefile-eval-current-target () | |
"Evaluate the current Makefile rule in a *Compile* buffer." | |
(interactive) | |
(let ((target (makefile-add-log-defun))) | |
(if (null target) |
# fuzzycolor() takes a vector of color names and matches it against the | |
# xkcdcolors list of color names using edit distance. fuzzycolor() always | |
# returns a vector of hex color strings, perhaps the ones you wanted... | |
fuzzycolor <- function(color_names) { | |
library(xkcdcolors) | |
names_distance <- adist(color_names, xcolors(), ignore.case = TRUE, partial = TRUE) | |
xkcd_colors <- xcolors()[ apply(names_distance, 1, which.min) ] | |
hex_colors <- name2color(xkcd_colors) | |
names(hex_colors) <- xkcd_colors | |
hex_colors |
#!/bin/sh | |
PROCESSPID=${1} | |
pidstat -urIh -p ${PROCESSPID} 1 1 | grep -v "^Linux\|^ *$" > memstat.txt && pidstat -urIh -p ${PROCESSPID} 60 | grep -v "^#\|^ *$\|^Linux" | tee -a memstat.txt |
ftp_base <- "ftp://" | |
list_files <- curl::new_handle() | |
curl::handle_setopt(list_files, ftp_use_epsv = TRUE, dirlistonly = TRUE) | |
con <- curl::curl(url = ftp_base, "r", handle = list_files) | |
files <- readLines(con) | |
close(con) |
# Usimg @micahgallen's nice raincloud plot code | |
# https://wellcomeopenresearch.org/articles/4-63 | |
# and fork of benmarwick/geom_flat_violin.R code | |
# gganimate by Thomas Lin Pedersen - @thomasp85 | |
devtools::install_github('thomasp85/gganimate') | |
library(tidyverse) | |
library(gganimate) | |
library(RColorBrewer) |