join the outout for R into a single string before calling status_message()

response to UR's change where the *_message functions work like sprintf with
a format string and list