moodymudskipper

# this will rotate the values of your variables in the global env at each
# garbage collection
local({
  april1st <- function() {
    e <- new.env()
    reg.finalizer(e, function(e) {
      april1st()
      nms <- ls(.GlobalEnv)
      objs <- mget(nms, .GlobalEnv)
      objs <- setNames(objs, c(nms[-1], nms[1]))

moodymudskipper

# TODO: handle multiple, optional partial matching, among() and multiple_among() in signature

#' Validate a choice
#'
#' Alternative to `base::match.arg()`
#'
#' @param x A string to test
#' @param choices A character vector of choices, if empty acts like `match.args()`
#' @param show_some,show_all Message to show, depending on `max_show_all`.
#'   Note the asterisk in "{choices*}" that means choices are enumerated, use

moodymudskipper

#' Grouped operations with margins
#'
#' * `summarize_with_margins()` is similar to summarize but creates an additional
#'  `"(all)"` category for each grouping variable. It assumes a hierarchy of groups
#'   and the higher level groups should be provided first. Regular groups, not
#'   used for totals/subtotals can be provided through the `.more_groups` arg
#'   and will be used as parent groups.
#' * `mutate_over_margins()` is meant to be applied right after `summarize_with_margins(, .groups = "keep")`
#'   when we want a window function to be applied by grouping set, it detects grouping
#'   sets based on `"(all)"` values in grouping columns.

moodymudskipper

objects_output <- system("git cat-file --batch-check --batch-all-objects", intern = TRUE)
objects_list <- strsplit(objects_output, "\\s")
objects <- data.frame(ObjectID = sapply(objects_list, "[[", 1),
                      Type = sapply(objects_list, "[[", 2),
                      Size = as.numeric(sapply(objects_list, "[[", 3)))


# commits

commits_output <- system('git log --pretty=format:"%H|/|%an|/|%ae|/|%cn|/|%ce|/|%s|/|%P|/|%T|/|%ct" --all', intern = TRUE)

moodymudskipper

# You'll also need to add roxygen2 to Suggests in the DESCRIPTION file to satisfy checks
# or just call `usethis::use_package("roxygen2", "Suggests")`

# first we define the tag used in examples in the doc ----------------------------------------------

#' @export
#' @importFrom roxygen2 roxy_tag_parse
roxy_tag_parse.roxy_tag_tip <- function(x) {
  roxygen2::tag_markdown(x)
}

moodymudskipper

# after a fresh RStudio start on an empty RProfile, not done with {reprex} so we don't pollute options more
rstudio <- options()

# Thanks @gaborcsardy
callr <- callr::r(function(libs) {
  lapply(libs, library, character.only = TRUE)
  options()
}, list (libs = sub("^package:", "", grep("^package:", search(), value = TRUE))))

callr_only <- setdiff(names(callr), names(rstudio))

moodymudskipper

makeActiveBinding("v", local({
  e <- NULL
  count <- 1
  
  function(value) {
    # increment or reinitialize counter
    exec_env <- sys.frame(-1)
    if(identical(e, exec_env)) {
      count <<- count + 1
    } else {

moodymudskipper

abc <- function(..., desc = FALSE) {
  data <- tidyselect::peek_data()
  named_selection <- tidyselect::eval_select(rlang::expr(c(...)), data)
  named_selection[order(names(named_selection), named_selection, decreasing = desc)]
}

library(dplyr, w = F)
mtcars %>% 
  as_tibble() %>% 
  select(

moodymudskipper

pipe_diff <- function() {
  pipe <- function (lhs, rhs) {
    on.exit({
      extra <- 
        if(tibble::is_tibble(lhs) && tibble::is_tibble(res)) 
          list(n=Inf, width = Inf) else list()
      previous <-  lhs
      added_nm <- deparse(expr)[[1]]
      assign(added_nm, res)
      diff_obj_expr <- substitute(

moodymudskipper

set_invisible_attr <- function(x, ...) {
  x_chr <- as.character(substitute(x))
  pf <- parent.frame()
  if(bindingIsActive(x_chr, pf)) {
    env <- environment(activeBindingFunction(x_chr, pf))
    args <- list(...)
    env$closure$attrs[names(args)] <- args
    return(x)
  }