.First <- function() {
  
  # options
  options(browserNLdisabled     = TRUE,
          deparse.max.lines     = 2, 
          download.file.method  = "libcurl",
          show.signif.stars     = FALSE, # Don't show significant star
          scipen                = 10,
          knitr.duplicate.label = "allow",
          github.user           = "uribo", 
          shiny.reactlog        = TRUE,
          devtools.name         = "Shinya Uryu",
          devtools.desc.author  = 'c(person(given = "Shinya", family = "Uryu", 
                                            email = "suika1127@gmail.com", 
                                            role  = c("aut", "cre")))',
          devtools.desc.license = "MIT + file LICENSE")
  # load packages
  suppressMessages(library(magrittr))
  suppressMessages(library(ggplot2))
  suppressMessages(library(devtools))
  suppressMessages(library(testthat))
}
