nassimhaddad

Dplyr is a well known R package to work on structured data, either in memory or in DB and, more recently, in cluster. The in memory implementations have in general capabilities that are not found in the others, so the notion of backend is used with a bit of a poetic license. Even the different DB and cluster backends differ in subtle ways. But it sure is better than writing SQL directly! Here I provide a list of backends with links to the packages that implement them when necessary. I've done my best to provide links to active projects, but I am not endorsing any of them. Do your own testing. Enjoy and please contribute any corrections or additions, in the comments.

Backend	Package
data.frame	builtin
data.table	builtin
arrays	builtin
SQLite	builtin
PostgreSQL/Redshift	builtin

nassimhaddad

library(openxlsx)
Sys.setenv(R_ZIPCMD= "/usr/bin/zip")
openxlsx::write.xlsx(res, "mytable.xlsx", row.names = FALSE)

nassimhaddad

cols_to_paste <- c("col1", "col2")
concatenation <- paste0("paste(", paste(cols_to_paste, collapse = ","), ")")
text_table <- the_data %>% mutate_(verbatim = concatenation)
  

nassimhaddad

nonNa <- function(x)Filter(Negate(is.na), x)

nassimhaddad

#' Turn a function into a new function that helps debugging upon exception
#' 
#' @param fn the function to transform
#' @param saveFile an optional path to save RDS to, if NULL output will be in global variable '.problem'
#' @return new function that behaves like fn(...) normally, but if fn(...) throws an exception saves to variable or saveFile RDS of list .problem such that do.call(.problem$fn_name,.problem$args) repeats the call to fn with args.
#'
#' @examples 
#' sum_of_log <- function(x, y){
#'   stopifnot(x>=0)

nassimhaddad

DF = data.frame(
  title = 1:4,
  dummy = rep(NA, 4),
  desc = c("1", "2", "3", 
           '<span style="width:100px;height:100px;background:#354B96;display:inline-block;color:white;">5</span>'),
  stringsAsFactors = FALSE
)
library(rhandsontable)

nassimhaddad

# source: http://r.789695.n4.nabble.com/get-arguments-passed-to-function-inside-a-function-td3783894.html

tmpfun2 <- function(x,y,z,...) {
( match.call() )
}

temp <- (tmpfun2(1,2,3))
temp <- deparse(temp)
class(temp)

nassimhaddad

require(rCharts)
require(shiny)
smpl<-data.frame(gene = c("gene1","gene2","gene3","gene4","gene5",
                          "gene6","gene7","gene8","gene9","gene10"),
                 direction = c("up","down","up","up","up",
                               "up","up","down","down","down"),
                 type = c("norm","norm","tum","tum","norm",
                          "tum","tum","norm","tum","tum"),
                 foldChange = c(1.3, 0.4, 1.3, 3.0, 1.6,
                                2.9, 1.3, 0.5, 0.5, 0.6))

nassimhaddad

# download the trained word vectors (~100mb)
download_to <- tempfile()
download.file('http://www-nlp.stanford.edu/data/glove.6B.50d.txt.gz',
              download_to)

# prepare the data
data <- read.table(download_to, sep = " ", header = FALSE,
                 quote = NULL, comment.char = "", row.names = 1,
                 nrows = -1)
data <- as.matrix(data)

nassimhaddad

#!/bin/bash


echo "Removing building information..."
rm -rf output

echo "Generate documentation..."
R -q -f roxygen.R

mkdir output