R/chachi.R

In metagear: Comprehensive Research Synthesis Tools for Systematic Reviews and Meta-Analysis

#' A small tribute to Chachi.  
#'
#' Rest easy little bud, 200?-2016.
#'
#' @return NULL
#'
#' @export chachi

chachi <- function () {

  littleChachi <- paste0(
    "+++++++++++++++++++++###########################################\n",
    "+++++++++++++++++++++++#########################################\n",
    "+++++++++++++++++++++'''+#######################################\n",
    "++++++++++++++++++'''''''''+####################################\n",
    "++++++++++++++++++'''''''''''''+################################\n",
    "+++++++++++++++++''''''''''''''''##++'##########################\n",
    "++++++++++++++++'''''''''''''''''++''''#########################\n",
    "+++++++++++++++####+++''''''''''''''''''########################\n",
    "++++++##################+''''''''''''+''+#######################\n",
    "++########################+'''''+''''''''+######################\n",
    "+++++++++##################+'''''+''''''''++####################\n",
    "++++++++####################+''''''++'''''''''+#################\n",
    "++++++#######################++'''''''''''''''''++##############\n",
    "++++##########################+''''''''''''''''''''#############\n",
    "'+##########+####################+'''''''''''''''+##############\n",
    "###########++#####################+'''''''''''''######+''+######\n",
    "###########++#######################++'''''''''###++##+'''''+###\n",
    "##########'++##########################'''''''###+++##''''''+++#\n",
    "##########'++#############################++'###+'+##+''''''''''\n",
    "###+++####'++##################################+''+##'''''''''''\n",
    "++#;';'+##'++##++#############################++++##++''''''++''\n",
    "'++;;;;''#+++##+++##################################'''''''+#'+'\n",
    "'+;;;;;;;'#++##+++++###############################+'''''+##+'++\n",
    "+++;''';;;'+++++++++++##############################+'++###+''''\n",
    "##++;';;'::;#+++++++++####################################++''''\n",
    "+++++::;:::::++#+#+++++###################################++''''\n",
    "'''''+:::::::,;####+++###################################++++'''\n",
    "''''''':;:,.'#++####+####################################+++''''\n",
    "+''''''+;;,+++''###+####################################+++'''''\n",
    "++''''''';'+''';+++#####################################+'''''''\n",
    "++''''++';;:,,,,,+######################################+'''''''\n",
    "++++'';:;:::::::,+###########################+#########++''+''''\n",
    ";:::;;;;;::::'''''+##########################++########++''+''''\n",
    "++'''+++++''''''''+####################################++'''''''\n",
    "+'+''''+'''''''''''#####++#########++###+#############+++'''''''\n",
    "++'''''''''''''''''++###++#####+;::::;##+#############++''''''''\n",
    "+++''''''''''''''''+####+#####';:::::+#+'+############+'''''''''\n",
    "+++''+''''''''''''++####+########++++''+'#############''''''''''\n",
    "++++++''''''''''''+++###++######+'''''''+++########++'''''''''''\n",
    "+++++++''''''''''+'+++##++#####+'''''''''++++####++''''''''''''+\n",
    "++++++'+''''''''+'+####++++#####''''''''''+++++##+''''''''''''++\n",
    "+++++++'''''''''+######+''+#####'''''''''''+++###+'''''''''''''+\n",
    "+++++++++''''''+#######+'''#####''''''''''''+###+''''''''''''+++\n",
    "++++++++'''''''#######+''''#####''''''''''''++++''''''''''++++++\n",
    "+++++++++''++''+######+''''####+''''''''''''''''''''''''''++++++\n",
    "++++++++++''++'''+###+'''''####+'''''''''''''''''''''''+++++++++\n",
    "+++++++++++''+'++++'''''''+####+'''''''''''''''''''''''+++++++++\n",
    "++++++++++++'''++++'''''''+####+'''''''''''''''''''''''+++++++++\n",
    "++++++++++++'''++'+'''''''+####+''''''''''''''''''''++++++++++++\n",
    "+++++#+++++++'+'''+++++'''++###+'''''''''''''''''''+++++++++++++\n",
    "+++++#++++++++'+'++++''''''####+''''''''''''''''''++++++++++++++\n",
    "+++++##+++++++++'+++++'''+'+###+'''''''''''''''''+++++++++++++++\n",
    "++++###+++++++++++++++++'+++++++''''''''''''''''++++++++++++++++\n",
    "++++####+++++++++++#++++++++++++'''''''''''''''+++++++++++++++++\n",
    "++++###++++++++++++##+++++++++++''''''''''''''++++++++++++++++++\n",
    "++++##++++++++++++++#++++++++'''++++''''''''++++++++++++++++++++\n",
    "#+++######+++++++++##+++++++++''+''''++''''+++++++++++++++++++++\n",
    "##++####+++++++++++###+++++++++++++'''''++++++++++++++++++++++++\n",
    "##++#####++++++++######+++++++++++++++++++++++++++++++++++++++++\n",
    "##++#####+++++++#######+++++++++++++++++++++++++++++++++++++++++\n",
    "###+######+++++########+++++++++++++++++++++++++++++++++++++++++\n",
    "###+######+++##########+++++++++++++++++++++++++++++++++++++++++\n",
    "###########+++##########++++++++++++++++++++++++++++++++++++++++\n",
    "##########+++###########++++++++++++++++++++++++++++++++++++++++\n")
    
  write(paste0("<pre style=\"font: 4px/2px monospace;\">", 
               littleChachi, "</pre>"), 
        file = "tempChachi.html")
  browseURL(paste0(getwd(), "/tempChachi.html"))
  Sys.sleep(3)
  file.remove("tempChachi.html")
  
  return(NULL)
}