abicky

--- anything-R.el.orig	2012-04-15 18:44:10.000000000 +0900
+++ anything-R.el	2012-04-15 19:41:11.000000000 +0900
@@ -44,43 +44,76 @@
 (require 'anything)
 (require 'ess-site)
 
+(defvar anything-R-default-limit
+  anything-candidate-number-limit)
+
+(defvar anything-R-help-limit

abicky

--- ess-r-d.el.orig	2012-04-06 08:02:29.000000000 +0900
+++ ess-r-d.el	2012-04-14 22:20:21.000000000 +0900
@@ -511,10 +511,15 @@
   (when (and ess-current-process-name
 	     (get-process ess-current-process-name)
 	     (not (ess-process-get 'busy)))
-    (let* ((funname (or (and ess-eldoc-show-on-symbol ;; aggressive completion
-			     (ess-get-object-at-point))
-			(car (ess--funname.start))))
-	   (doc (cadr (ess-function-arguments funname))))

abicky

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
my (@keys, @values, $HELP, $TEST);
GetOptions('keys=i{,}' => \@keys, 'values=i{,}' => \@values, 'help' => \$HELP, 'test' => \$TEST);

sub usage {
    print STDERR <<USAGE;
usage: $0 --keys key_fields --values value_fields

abicky

#!/usr/bin/env Rscript
#---------------------------------------------------------------------------
# command line tool for RUnit, which is a unit test framework for R
#
# Copyright 2012- Takeshi Arabiki
# License: MIT License (http://opensource.org/licenses/MIT)
#
# See also: http://d.hatena.ne.jp/a_bicky/20120109/1326074730 [in Japanese]
#---------------------------------------------------------------------------

abicky

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
  

abicky

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())

abicky

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(...)
    

abicky

-brief
-cat
-chgrp
-chmod
-chown
-copyFromLocal
-copyToLocal
-count
-cp
-dot

abicky

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() {

abicky

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("!", "+")) {