Robert M Flight rmflight

Below are possible additions to add to the praise that testthat randomly provides if all test pass successfully. I am listing the github username and the praise phrase. The idea is that eventually a pull request would be put together so that @hadley can include them in testthat. The current praises are listed here

@rmflight: It didn't blow up!
@jennybc: Your code is a wonderland.
@rmflight: All conditions normal.
@rmflight: You didn't expect an error, did you?
@rmflight: All systems go for launch!
@rmflight: You're pretty good at this testing thing.
@rmflight: Superstar!

In the shell:

git clone https://github.com/hadley/adv-r.git
gem install jekyll mime-types

In R:

test1

http://www.reddit.com/r/AskReddit/comments/1pl0pm/why_isnt_polygamy_legal/

http://www.reddit.com/r/videos/comments/1pl0pj/american_national_anthem_played_at_buckingham/

	# function where first calls another function, that in turn calls the first,
	# but does so in a way that the second is not called again. I want to test
	# how many times f1 and f2 get called under different conditions

	f1 <- function(use_f2 = FALSE){
	if (use_f2) {
	f2()
	}
	}

	character_similarity_R <- function(character_list, similarity_type = "overlap"){

	use_list <- names(character_list)
	n_list <- length(use_list)

	all_comparisons <- expand.grid(seq(1, n_list), seq(1, n_list))
	all_comparisons <- all_comparisons[(all_comparisons[,2] > all_comparisons[,1]), ]
	all_comparisons <- as.matrix(all_comparisons)

	calc_similarity <- function(x){

	#' calculate binned values
	#'
	#' given a set of genomic bins and an RLE-list object, return value
	#'
	#' Adapted from documentation of \code{tileGenome}
	#'
	#' @param bins a \code{GRanges} object representing genomic bins
	#' @param numvar a named \code{RleList} object representing numerical variable along the genome
	#' @param binfun character string of the function to apply
	#' @param mcolname the name of the metadata column containing the binned value of the object

	# list of github installed packages
	#gitPackages <- list(c("devtools", "hadley"),
	# c("samatha", "DASpringate"),
	# c("twitteR", "geoffjentry"))

	# Other specific things

	# list of local packages
	localPackages <- c("~/Projects/work/rmfNotifier")

	#!/path/2/Rscript

	# License: CC0 (just be nice and point others to where you got this)
	# Author: Robert M Flight <rflight79@gmail.com>, github.com/rmflight
	#
	# This is a post-commit hook that after a successful commit subsequently increments the package version in DESCRIPTION
	# and commits that. Analogous to the pre-commit at https://gist.github.com/rmflight/8863882, but useful if you only have
	# good reasons for not doing it on the pre-commit.
	#
	# To install it, simply copy this into the ".git/hooks/post-commit" file of your git repo, change /path/2/Rscript, and make

	# assumes that a ccCompareResult object has been generated from a ccEnrichResult, eg ccResults from the vignette
	# note that the $BP is to access a single ccCompareResult from a collection, these are generally BP, MF, CC, KEGG, etc

	library(graph)
	tmpGraph <- mainGraph(ccResults$BP)
	tmpData <- nodeData(tmpGraph, , "listMembership")

	go2list <- data.frame(goid = names(tmpData), listMembership = unlist(tmpData), stringsAsFactors=FALSE)

	```{r t1}
	crud <- "alksdjflkajsdflkajsdf"
	```

	Here is some text for context

	```{r t2, echo=FALSE, results='asis'}
	cat(paste("```",crud,"```", sep="\n"))
	```