gyli

set noautofocus
set nocncpcompletion
set smoothscroll
set hud
set noregex
set noinsertmappings
set typelinkhints
set defaultnewtabpage
let scrollduration = 20
let searchlimit = 30

gyli

# unbind some default keybindings
unbind C-b
# set prefix key to ctrl-a
set -g prefix C-a
# pass through a ctrl-a if you press it twice
bind C-a send-prefix

# vim style bindings for pane movement
bind -r h select-pane -L
bind -r j select-pane -D

gyli

def accepts(*types):
    def check_accepts(f):
        assert len(types) == f.func_code.co_argcount

        def new_f(*args, **kwds):
            for (a, t) in zip(args, types):
                assert isinstance(a, t), "arg %r does not match %s" % (a, t)
            return f(*args, **kwds)

        new_f.func_name = f.func_name

gyli

abb2state <- function(name, convert = F, strict = F){
  data(state)
  # state data doesn't include DC
  state = list()
  state[['name']] = c(state.name,"District Of Columbia")
  state[['abb']] = c(state.abb,"DC")
  
  if(convert) state[c(1,2)] = state[c(2,1)]
  
  single.a2s <- function(s){

gyli

pkg.install <- function(x)
{
  if (!require(x,character.only = TRUE))
  {
    install.packages(x,dep=TRUE)
    if(!require(x,character.only = TRUE)) stop("Package not found")
  }
}
pkg.install("DBI")

gyli

#Rscript filename.R --host= --dbname= --user= --password=
options<-paste0("--",c("host","dbname","user","password"))
args <- commandArgs(TRUE)
if(length(args)!=4)stop("Please input the full options of host, dbname, user and password.")

db.options<-function(option){
  option.location <- grepl(option,args)
  if(sum(option.location)!=1)
    stop(paste0("Something wrong with ", option, "."))
  if(!grepl("=",args[option.location]))

gyli

#Translate integer into Excel column index, such as:
# 1-26 -> A-Z
#27-52 -> AA-AZ
#53-78 -> BA-BZ
#...

num.to.LETTERS<-function(num,letter=""){
  if(num<=0){
    return(NA)
  }else if(num/26<=1){