DarwinAwardWinner

;;; bcup-closures.el ---  -*- lexical-binding: t -*-

;; Closure-manipulating function/macros
(defmacro enclose (arg)
  `(lambda () ,arg))
(defmacro enclose-args (&rest args)
  (let ((enclose-exprs
         (mapcar (lambda (arg) `(enclose ,arg)) args)))
    `(list ,@enclose-exprs)))
(defun unenclose (arg) (funcall arg))

DarwinAwardWinner

library(rlang)
library(assertthat)
library(magrittr)
library(glue)
library(tibble)

## Takes LHS and RHS as strings
assign_general_ <- function(lhs, rhs, envir) {
    expr <- parse(text=glue("{lhs} <- {rhs}"))
    eval(expr, envir)

DarwinAwardWinner

Keybase proof

I hereby claim:

• I am darwinawardwinner on github.
• I am rcthompson (https://keybase.io/rcthompson) on keybase.
• I have a public key ASBVf3s3y1AIHHATFqG8c6WHdw8t4PpcbMIsc2slD2-XBwo

To claim this, I am signing this object:

DarwinAwardWinner

---
title: "Random Plot Order Test"
author: "Ryan C. Thompson"
date: "February 1, 2017"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

DarwinAwardWinner

Homebrew build logs for pcre2 on "CentOS release 6.7 (Final)"
Build date: 2016-06-14 13:49:25

DarwinAwardWinner

#!/usr/bin/env Rscript

library(matrixStats)
library(plyr)
library(lubridate)
library(reshape2)
library(minfi)
library(limma)
library(sva)
library(celltypes450)

DarwinAwardWinner

subsetListOfArrays <- function (object, i, j, IJ, IX, I, JX, J) {
    len <- vapply(object, length, 0)
    I <- intersect(I, names(len)[len > 1L])
    J <- intersect(J, names(len)[len > 1L])
    if (missing(i)) {
        IX <- I <- character(0)
        if (missing(j)) 
            IJ <- character(0)
    }
    else {

DarwinAwardWinner

## This will allow you to use dplyr functions with Bioconductor's
## S4Vectors::DataFrame class. They simply call "as.data.frame" on
## DataFrame objects and then pass them to the methods for
## "data.frame". Note that this entails conversion of S4 vector
## columns to primitive vectors. No attempt is made to convert the
## results back to DataFrame, since such a conversion would not
## restore S4 vector columns that were converted to primitive vectors.

library(S4Vectors)
library(dplyr)

DarwinAwardWinner

#!/bin/sh
# -*- mode:R -*-
#PBS -l nodes=1:ppn=8,mem=30gb

'\' >/dev/null 2>&1 || true
# This is bash code to set up the environment

echo "Hello from bash!"
echo "Args are: $@"

DarwinAwardWinner

#!/bin/bash
# -*- mode:python -*-
#PBS -l nodes=1:ppn=8,mem=30gb
''''/bin/true
# This is bash code to set up the environment
echo "Hello from bash!"
echo "Args are: $@"
# Bash setup code ends here
python - "$@" <<EOF
''' # Python starts here '''