smbache

#' Arm a value with a function which fires when evaluated.
#'
#' @param expr an expression
#' @param fun a function of one argument.
#' 
#' @return an expression which when evaluated returns the result of expr,
#'   after evaluating fun(expr).
arm <- function(expr, fun)
{
	substitute({

smbache

#' Placeholder function.
#'
#' @export
as_nonstandard <- function()
{
	stop("This is a placeholder function, and should not be called directly.")
}

#' Declare symbols for nonstandard evalution.
#'

smbache

`%<<%` <- function(con, x)
{
  UseMethod("%<<%", x)
}

`%<<%.function` <- function(con, x)
{
  if (!identical(x, close))
    stop("Unknown function provided to <<", call. = FALSE)

smbache

library(dplyr)     # These two need that it is magrittr@dev that is installed.
library(magrittr)  # i.e. the dev branch @ GitHub, not master.  
library(ggplot2)
library(mgcv)

"http://zevross.com/blog/wp-content/uploads/2014/08/chicago-nmmaps.csv" %>%
  read.csv(as.is = TRUE) %>%
  mutate(date = as.Date(date)) %>%
  filter(date > as.Date("1996-12-31")) %>%
  mutate(year = substring(date, 1, 4)) %T>%

smbache

#' Trigger an action associated with first matched/valid condition.
#' 
#' trigger is a flavour of pattern matching (or an if-else abstraction) in which a 
#' value is matched against a sequence of condition-action sets. When a valid 
#' match/condition is found the action is triggered and the result of the action 
#' is returned. The trigger function is designed to particularly useful in pipelines
#' ala magrittr.
#' 
#' @param value the value to match agaist
#' @param ... a set of formulas containing a condition as LHS and an action as RHS.

smbache

To -> or not to ->

In the blog post "A Step to the Right in R Assignments", by @hrbrmstr, and in later twitter discussions (e.g. here), it is argued that <- (and %<>% for that matter) is "illogical" and feels awkward.

Although I can see where the temptation comes from, I consider -> to be

smbache

# Allow for V(g) %$% color or g %>% V %$% color
# 
# Since %$% uses the generic `with` method, it is possible to tweek this to 
# deal with special cases like this. I know little about igraph, but this 
# may work.
# 
with.igraph.vs <- function(data, expr, ...) {
  eval(substitute(data$c, list(c = substitute(expr))))
}

smbache

# a few utility funcs, might as well take them from `import`
import::here(symbol_list, symbol_as_character, .from = import)

copy_from <- function(.from, ...)
{
  symbols <- symbol_list(...)
  parent  <- parent.frame()
  from    <- symbol_as_character(substitute(.from))

  for (s in seq_along(symbols)) {

smbache

library(loggr) # should be executed before sourcing the script

log_file("all.log")
log_file("messages.log", DEBUG, INFO, .warning = FALSE, .error = FALSE)
log_file("console", WARN, ERROR, CRITICAL, .message = FALSE)

top_n <- function(data_set, sort_var, n = 3, desc = FALSE)
{
  if (!is.data.frame(data_set))
    log_critical("Invalid data_set provided.")

smbache

### 
###  This is an approach to string interpolation in R.
###  First a few utility functions, then the actual function (stringterpolate): A shorter name 
###  is probably desirable. Finally a few examples to show its use. 
###

#' Utility Function for Matching a Closing Brace
#' 
#' Given positions of opening and closing braces \code{match_brace} identifies
#' the closing brace matching the first opening brace.