powered by
getBar(width = getOption("width"))
message(getBar())
Run the code above in your browser using DataLab