dotfiles/.Rprofile

if(interactive())
{
  options(blogdown.ext = ".md",
          blogdown.author = "maximewack",
          menu.graphics = F,
          browser = "qutebrowser",
          scipen = 999,
          width = 1000,
          Ncpus = 2,
          pillar.bold = T,
          tibble.print_min = 20,
          tibble.print_max = 100)

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