halpo

margins <- 
    function( grouped               #< [grouped_df] A data frame with groups defined.
            , ...                   #< passed to `FUN`
            , FUN=dplyr::summarize  #< Summary function
            , all.name = getOption("margins::all.name", "(All)")
            ){
    "Add margins to summarization"
    g <- groups(grouped)
    com <- lapply(seq(0, length(g)), combn, x=g, simplify=FALSE)
    com <- Reduce(c, com)

halpo

Building a beamer presentation with knitr.

Introduction

The documents included are the input for knitr. In addition you need to have the tool pandoc installed. I also use a custom beamer template to add the University of Utah \institute command to the template. It also changes the indentation some.

Steps

1. knit document with

halpo

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.R]
@="Rsource"

[HKEY_CLASSES_ROOT\.Rout]
@="Routput"

[HKEY_CLASSES_ROOT\Rsource]
@="R Source"

halpo

#' Print a table with text borders.
#' @param df a data.frame or matrix
#'
#' Prints a table with borders of |, -, +, and = which is usefull for 
#' formating tables to use with markdown.
#'
#' @importFrom stringr str_c str_length str_dup
#' @importFrom dostats compose
#' @export
#' @examples

halpo

#' Copyright Andrew Redd 2012
#' Licensed under GPLv3 or newer

#' Nest functions
#' @return new function cosisting of the functions nested
compose <- function(..., .list){
  l <- if(missing(.list)) {
    list(...)
  } else {
    .list

halpo

library(plyr)
library(stringr)
#' Convenient interface for computing statistics on a vector
#'  @author Andrew Redd
#'
#'  @param x the vector
#'  @param ... statistics to compute, must take a vector and return a vector
#'  @param .na.action the action to take on NA values, for all statistics
#'
#'  @return A one row \code{data.frame} with columns named as in \code{...}

halpo

library(xtable)
texprint<-new.env(parent=.GlobalEnv)


texprint$print<-function(x, ...){
  UseMethod("texprint")
}
texprint$texprint.default <- function(x, ...){
  UseMethod("print")
}

halpo

library(Rgraphviz)
library(plyr)
parserGraph <- function(x){
  d0 <- attr(x, 'data')
  d <- mutate(d0,  id =as.character(id), parent=as.character(parent))
  stopifnot(inherits(x, "parser"))
  g <- new("graphNEL", nodes=as.character(d$id), edgemode='directed')
  d_ply(d, .(id), with, {
    if(parent %in% d$id)
      g <<- addEdge(id, parent, g, 1)

halpo

################################################################################
# Copyright 2011
# Andrew Redd
# 11/23/2011
#
# Description of File:
# Makefile for knitr compiling
# 
################################################################################
all:pdf  # default rule DO NOT EDIT

halpo

# Makefile for generating R packages.
# 2011 Andrew Redd
#
# Assumes Makefile is in a folder where package contents are in a subfolder pkg.
# Roxygen uses the roxygen2 package, and will run automatically on check and all.

PKG_VERSION=$(shell grep -i ^version pkg/DESCRIPTION | cut -d : -d \  -f 2)
PKG_NAME=$(shell grep -i ^package pkg/DESCRIPTION | cut -d : -d \  -f 2)

R_FILES := $(wildcard pkg/R/*.R)