contumaxcs

`%||%` <- function(a, b) if (is.null(a)) b else a

contumaxcs

histTreshold <- function(hdata, treshold, freq=FALSE) {

	if (freq) {
		tresh <- hdata$density
	} else {
		tresh <- hdata$counts
	}

	tresh <- tresh<treshold

contumaxcs

#!/usr/bin/python

import threading
import time


class TimerClass(threading.Thread):
    def __init__(self):
        threading.Thread.__init__(self)
        self.event = threading.Event()

contumaxcs

[
	// R 
	{ "keys": ["alt+-"], "command": "insert_snippet", "args": {"contents": " <- " }},
	{ "keys": ["shift+ctrl+/"], "command": "insert_snippet", "args": {"contents": "#' " }},
	
	// SublimeREPL
	{ "keys": ["alt+shift+r"], "command": "repl_transfer_current", "args": {"scope": "file"}},

	{ "keys": ["ctrl+shift+r"], "command": "repl_transfer_current", "args": {"scope": "lines"}},