dotfiles/.Rprofile

if(interactive())
{
  options(blogdown.ext = ".md",
          blogdown.author = "maximewack",
          menu.graphics = F,
          browser = "qutebrowser",
          scipen = 999,
          width = 240,
          Ncpus = 2,
          pillar.bold = T,
          tibble.print_min = 20,
          tibble.print_max = 100,
          i2b2_user = "4117773",
          i2b2_pass = system("pass i2b2_oracle", intern = T),
          i2b2_map_user = "dih",
          i2b2_map_pass = system("pass cdw.egp.aphp.fr/wiki", intern = T))

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