namarkus

# Advent of Code 2020

# 1 ----------------------------------------------------------------

library(tidyr)
library(dplyr)
input1 = readClipboard()
input1 = as.integer(input1)

df = crossing(var1=input1, var2=input1)

namarkus

add_total <- function(df, grp_vars, sum_vars, label='Total', ...) {
  
  if(missing(grp_vars) & !missing(sum_vars)) {
    total =
      df %>%
      group_by() %>%
      summarise(across({{sum_vars}}, sum),
                across(!{{sum_vars}} & where(is.factor), ~factor(label)),
                across(!{{sum_vars}} & where(is.character), ~label),
                .groups='drop')