This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'> | |
<html> | |
<head> | |
<meta http-equiv="content-type" content="text/html; charset=UTF-8"> | |
<script type="text/javascript"> | |
function writeToLocal(filename, content) { | |
var ua = navigator.userAgent.toLowerCase(); | |
try { | |
if (ua.indexOf('firefox') != -1) { // Firefox |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
condition="" | |
fs="\t" | |
while getopts c:F: OPT; do | |
case $OPT in | |
c ) condition=$OPTARG;; | |
F ) fs=$OPTARG;; | |
esac |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(when (require 'multi-shell nil t) | |
(setq multi-shell-command "/bin/bash") | |
(setq multi-shell-buffer-name "bash") | |
(define-key shell-mode-map (kbd "C-c SPC") 'multi-shell-next) | |
(define-key shell-mode-map (kbd "C-c C-SPC") 'multi-shell-prev)) | |
(defun bash() | |
(interactive) | |
(when (one-window-p) | |
(split-window-horizontally) | |
(other-window 1)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
usage() { | |
cat <<USAGE | |
usage: $(basename $0) [-p <param_name>=param_value] [-m <file_name>] [-x exectype] <script> | |
Execute the script with access to grunt environment. | |
-p <param_name - See parameter substitution for details. | |
-m <file_name> - See parameter substitution for details. | |
-x <exectype> - Set execution mode: local|mapreduce, default is mapreduce. | |
script - Script to be executed. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
parseSpec <- function(spec) { | |
vars <- strsplit(spec, "\\|")[[1]] | |
if (any(grepl("\\s", vars))) { | |
stop() | |
} | |
#lastvar <- sub("([^=:]+)([=:])?", "\\1 \\2 ", vars[length(vars)]) | |
lastvar <- sub("([^=:]+)(=)?", "\\1 \\2 ", vars[length(vars)]) | |
lastvar.elems <- strsplit(lastvar, " ")[[1]] | |
strlen <- nchar(lastvar.elems[1]) | |
if (substring(lastvar.elems[1], strlen) %in% c("!", "+")) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
test.parseSpec <- function() { | |
checkEquals(c(hoge = "l"), parseSpec("hoge")) | |
checkEquals(c(hoge = "!"), parseSpec("hoge!")) | |
checkEquals(c(hoge = "+"), parseSpec("hoge+")) | |
checkEquals(c(hoge = "i"), parseSpec("hoge=i")) | |
checkException(parseSpec("hoge|fuga=s+")) | |
checkEquals(c(hoge = "s@", fuga = "s@"), parseSpec("hoge|fuga=s@")) | |
} | |
test.checkType <- function() { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-brief | |
-cat | |
-chgrp | |
-chmod | |
-chown | |
-copyFromLocal | |
-copyToLocal | |
-count | |
-cp | |
-dot |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff -cr ROAuth.orig/R/ROauth.R ROAuth/R/ROauth.R | |
*** ROAuth.orig/R/ROauth.R 2011-06-03 13:10:28.000000000 +0900 | |
--- ROAuth/R/ROauth.R 2011-11-19 19:13:36.000000000 +0900 | |
*************** | |
*** 128,146 **** | |
auth <- signRequest(url, params, consumerKey, consumerSecret, | |
oauthKey=oauthKey, oauthSecret=oauthSecret, | |
httpMethod="POST", signMethod=signMethod) | |
opts <- list(...) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff -cr twitteR.orig/R/base.R twitteR/R/base.R | |
*** twitteR.orig/R/base.R 2011-11-09 07:15:21.000000000 +0900 | |
--- twitteR/R/base.R 2011-11-19 23:29:19.000000000 +0900 | |
*************** | |
*** 1,7 **** | |
setRefClass('twitterObj', | |
contains='VIRTUAL', | |
methods = list( | |
! toDataFrame = function(row.names=NULL, optional=FALSE) { | |
fields <- names(.self$getRefClass()$fields()) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff -cr RJSONIO.orig/src/libjson/JSONOptions.h RJSONIO/src/libjson/JSONOptions.h | |
*** RJSONIO.orig/src/libjson/JSONOptions.h 2011-10-23 02:00:32.000000000 +0900 | |
--- RJSONIO/src/libjson/JSONOptions.h 2012-01-05 01:54:00.000000000 +0900 | |
*************** | |
*** 79,85 **** | |
* means that libjson supports the full array of unicode characters, but also takes | |
* much more memory and processing power. | |
*/ | |
! //#define JSON_UNICODE | |
OlderNewer