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) |