ibecav

summarise_columns <-
function(dfname, ...) {
  checkmate::assert(
    checkmate::checkClass(dfname, "tbl_lazy"),
    checkmate::checkClass(dfname, "data.frame")
  )
  
  grps <- enquos(...)
  # print(as.character(grps))
  

ibecav

theme_ik <- function(
        base_size = 12,
        base_family = "sans",
        labs_color = "#074949",
        axis_color = "#002F2F",
        bg_color = "#eeffff",
        grid_color = "#ccffff"
){
    theme_minimal(base_size = base_size, base_family = base_family)+
        theme(