Skip to content

Instantly share code, notes, and snippets.

View rklancer's full-sized avatar

Richard Klancer rklancer

23 followers · 2 following
  • Somerville, MA
View GitHub Profile
@rklancer
rklancer / README.md
Created August 1, 2013 21:43 — forked from pjanik/README.md
@rklancer
rklancer / index.html
Last active December 20, 2015 20:08 — forked from tmcw/index.html
<!DOCTYPE html>
<meta charset="utf-8">
<title>SVG Swarm</title>
<style>
svg {
position: absolute;
top: 0;
}
@rklancer
rklancer / index.html
Created March 14, 2014 02:34
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<title>Simple Molecules</title>
<script type="text/javascript" src="http://mbostock.github.com/d3/d3.js"></script>
<script type="text/javascript" src="http://mbostock.github.com/d3/d3.geo.js"></script>
<script type="text/javascript" src="http://mbostock.github.com/d3/d3.geom.js"></script>
<script type="text/javascript" src="http://mbostock.github.com/d3/d3.layout.js"></script>
<style type="text/css">
@rklancer
rklancer / cart-weight-minot.json
Created October 2, 2014 20:25
{
"name": "Untitled Document",
"guid": 11,
"components": [
{
"type": "DG.GameView",
"guid": 101,
"componentStorage": {
"currentGameName": "CartWeight",
"currentGameUrl": "http://localhost:8000/CartWeight/",
@rklancer
rklancer / get-context.R
Created November 12, 2014 16:28
getContext <- function(re, data=sampleData) {
reWithContext <- paste0(".{0,10}", re, ".{0,10}")
context <- data[grep(reWithContext, data$text, perl=T),]
m <- regexpr(reWithContext, context$text, perl=T)
cbind(context, data.frame(context=regmatches(context$text, m)))
}
writeOut <- function(df, fname) {
f <- file(fname, 'wt')
for (rownum in 1:nrow(df)) {
@rklancer
rklancer / asciify.R
Created November 14, 2014 02:52
asciify <- function(text) {
text <- stri_trans_general(text, 'Any-Latin')
text <- stri_trans_general(text, 'Any-Publishing')
text <- stri_trans_general(text, 'Latin-Ascii')
text
}
@rklancer
rklancer / arg-block.rb
Last active August 29, 2015 14:18
Queries for Arg Block report
# Start with a list of endpoints; here we just use all of them
endpoints = Run.where("remote_endpoint IS NOT NULL").map &:remote_endpoint
select_params = [
{
:embeddable_type => "Embeddable::OpenResponse",
:embeddable_table => "embeddable_open_responses",
:answer_table => "embeddable_open_response_answers",
:question_foreign_key => "open_response_id",
:feedback_table => "c_rater_feedback_items",