Hey Gurl

hey_gurl.R

# The print.warnings method only handles printing the last.warning object
# in the warnings() function.
print.warnings <- function(object, 
                          header = "Hey Gurl \U0001f308:\n", ...) {
  base:::print.warnings(object, header = header, ...)
}

# I think the message hearder is hardcoded into the do_dfltWarn() function in C
# It uses gettext so one could probably write a "translation" of that message
# and create a custom domain 
warning("hello, world!")

# But this works
warnings()