Skip to content

Instantly share code, notes, and snippets.

Avatar

David Holstius dholstius

  • Bay Area Air Quality Management District
  • San Francisco Bay Area
  • Twitter @dholstius
View GitHub Profile
View grouply.R
grouply <- function(f, ...) {
groups <- lazyeval::lazy_dots(...)
function(tbl, ...) {
dplyr::group_by_(tbl, .dots = groups) %>%
f(...) %>%
dplyr::ungroup()
}
}
View install-libraries.R
# $ brew install libssh2
# $ brew install libgit2
## $ export CMAKE_INCLUDE_PATH="/usr/local/Cellar/libssh2/1.7.0/include"
## $ export CMAKE_LIBRARY_PATH="/usr/local/Cellar/libssh2/1.7.0/lib"
# NOTE: re: git2r: https://github.com/ropensci/git2r/issues/236
install_CRAN <- function (pkg, repos = "http://cran.rstudio.com", verbose = TRUE, ...) {
if (pkg %in% installed.packages()) message(pkg, " is already installed")
else install.packages(pkg, repos = repos, verbose = verbose, ...)
}
@dholstius
dholstius / ensurer-fail_with-experiments.R
Last active Apr 22, 2016
Using the dot (`.`) in `fail_with`
View ensurer-fail_with-experiments.R
#
# Context:
#
# https://cran.r-project.org/web/packages/ensurer/vignettes/ensurer.html says:
# "It is also possible to use the dot, ., directly in anonymous error handlers defined directly in the call to e.g. ensure_that."
#
# I must be misunderstanding the statement above!
#
library(ensurer)
@dholstius
dholstius / useful-ensurers.R
Created Apr 9, 2016
Basic insurance against bad args to .Fortran() calls
View useful-ensurers.R
eval({
ensure_nonnull <- ensures_that(!is.null(.) ~ "Must not be NULL" )
ensure_nonempty <- ensures_that(length(.) > 0 ~ "Must not be empty", +ensure_nonnull )
ensure_finite <- ensures_that(all(is.finite(.)) ~ "Must be finite", +ensure_nonempty )
ensure_positive <- ensures_that(all(. > 0) ~ "Must be positive", +ensure_finite )
ensure_nonnegative <- ensures_that(all(. >= 0) ~ "Must be positive or zero", +ensure_finite )
ensure_unique <- ensures_that(length(unique(.)) == 1)
})
# Wrapped in `eval({...})` b/c otherwise RStudio will complain about syntax
@dholstius
dholstius / check-groceries.R
Last active Apr 11, 2016
Adventures with `ensurer`
View check-groceries.R
library(ensurer) # awesome
# Example 1 --- OK
groceries <- c("eggs", "bread", "milk")
check_that(groceries, "bread" %in% .)
# Example 2 --- :-(
# I'd really like this to work! It's quite readable.
# Doesn't work b/c `ensurer` (v1.1) doesn't first evaluate calls.
contains <- function (what) function (x) { what %in% x }
@dholstius
dholstius / filter_-sp-S3-methods.R
Last active Mar 22, 2016
filter_() methods for Spatial*DataFrame objects
View filter_-sp-S3-methods.R
#' Filter (subset) a Spatial*DataFrame object
#'
#' @param object a \code{Spatial*DataFrame}
#' @param ... see \link{subset}
#' @param .dots
#'
#' @importFrom lazyeval all_dots lazy_eval
#'
#' @return a subset of the original \code{Spatial*DataFrame}
#'
@dholstius
dholstius / rgdal-install-with_homebrew.R
Last active Apr 13, 2018
rgdal installation on OS X
View rgdal-install-with_homebrew.R
install_from_source <- function (pkg, args = NULL, repos = "http://cran.rstudio.com", overwrite = FALSE, ...) {
if (!overwrite) {
if (pkg %in% installed.packages()) {
message(pkg, " is already installed")
return()
}
}
install.packages(
@dholstius
dholstius / nginx.conf
Last active Jan 28, 2016
nginx conf for rstudio and shiny (/etc/nginx/sites-enabled/)
View nginx.conf
# via https://support.rstudio.com/hc/en-us/articles/200552326-Running-RStudio-Server-with-a-Proxy
user nginx;
worker_processes 4;
# daemon off;
pid /run/nginx.pid;
events {
worker_connections 768;
# multi_accept on;
@dholstius
dholstius / fun_join.R
Last active Dec 23, 2015
(Left) join with custom comparator
View fun_join.R
#' (Left) join with a custom comparator
#'
#' @param left data.frame
#' @param right data.frame
#' @param by names of columns to join by
#' @param fun custom comparator (see examples)
#'
#' @examples
#' my_df <- data.frame(cyl = c(4, 4, 6, 8), vs = c(0, 1, NA, NA), foo = c("A", "B", "C", "D"))
#' my_fun <- function (e1, e2) (e1 == e2) | is.na(e2)
@dholstius
dholstius / patch.R
Last active May 10, 2019
Patch data on-the-fly (DRAFT)
View patch.R
#' Patch data on the fly.
#'
#' @param object to be patched
#' @param cond logical condition(s) to be evaluated within scope of object
#' @param \dots name-value pairs
#' @param quiet suppress messages
#'
#' @examples
#' patch(mtcars, where(vs == 0, am == 1), gear = Inf, carb = carb + 10)
#'