In erblast/oetteR: Collection of personal R functions

Date: r lubridate::today()

knitr::opts_chunk$set(echo = TRUE
                      , warning = FALSE
                      , message = FALSE
                      , results = 'markup'
                      , fig.width = params$fig.width
                      , fig.height = params$fig.height
                      )

plot_tabplots = function(p, title){

  tabplot:::plot.tabplot( x = p, title = title)

}

t = tibble( p = params$obj_list, title = params$titles ) %>%
  mutate( print = walk2( p, title, plot_tabplots) )


# tibble( p = pl$imp_tabplot, title = pl$title ) %>%
#   mutate( print = walk2( p, title, plot_tabplots) )