# A long message of two lines with a few leading spaces
msg = enumerate_items(state.name, nmax = Inf)
msg = paste0(" ", gsub("Michigan, ", "\n", msg))
# by default the message takes 95% of the screen
cat(fit_screen(msg))
# Now we reduce it to 50%
cat(fit_screen(msg, 0.5))
# we add leading_ws = FALSE to avoid the continuation of leading WS
cat(fit_screen(msg, 0.5, FALSE))
# We add "#> " in front of each line
cat(fit_screen(msg, 0.5, leader = "#> "))
Run the code above in your browser using DataLab