Customize R's startup msg on Rstudio

.Rprofile

setHook("rstudio.sessionInit", function(newSession) {
  cat('\f')
  
  hour <- format(Sys.time(), format = '%H') |> as.numeric() |> as.character()
  
  morning <- 0:11
  afternoon <- 12:16
  evening <- c(17:23)
  
  day_hrs <- rep(
    x = c('Morning', 'Afternoon', 'Evening'), 
    times = c(length(morning), length(afternoon), length(evening))
  )
  
  names(day_hrs) <- as.character(0:23)

  cli::cli_rule(center = '::')
  
  cli::cli_text(
    cli::col_magenta(paste0('Good ', day_hrs[hour], ', Mwavu.'))
  )
  
  cli::cli_blockquote(
    quote = paste0(
      'R is not a language driven by the purity of its philosophy; ', 
      'R is a language designed to get shit done.'
    ), 
    
    citation = '@hadleywickham, rstudioconf2022.'
  )
  
  cli::cli_rule(center = '::')
  
}, action = "append")

This is awesome!