powered by
## S3 method for class 'crayon': start(x, ...)start(x, ...)finish(x, ...)## S3 method for class 'crayon': finish(x, ...)
start(x, ...)
finish(x, ...)
## S3 method for class 'crayon': finish(x, ...)
## The input is red (if color is supported) get_name <- function() { cat("Enter your name:", start(red)) input <- readline() cat(finish(red)) input } name <- get_name() name
Run the code above in your browser using DataLab