dotfiles/.Rprofile

if(interactive())
{
  library(colorout)
  library(setwidth)
  options(blogdown.ext = ".md",
          blogdown.author = "maximewack",
          menu.graphics = F,
          scipen = 999,
          tibble.print_min = 10,
          tibble.print_max = 40)

  .View <- function(x)
  {
    x %>%
      dplyr::mutate_if(is.character, factor) %>%
      DT::datatable(filter = "top", options = list(paging = F, fixedHeader = T))
  }
}