Удалить запятую в последнем элементе вектора, используя cat в R

Question

У меня небольшая проблема в R, но я не могу понять, как ее исправить.

Я хочу использовать cat, чтобы напечатать сообщение в консоли R, используя аргумент sep в cat.Вот что я попробовал:

words <- c("foo", "foo2", "foo3")
cat("words not included:", "\n", words, sep = ",")
#words not included:,
#,foo,foo2,foo3

Как мы видим, запятые вставляются после : и до foo.

Тогда я сделал:

cat("words not included:", "\n", words, sep = ",", "\n")
#words not included:,
#,foo,foo2,foo3,

И мой желаемый вывод:

#words not included:
    #foo,foo2,foo3

Answer 1

Вы можете использовать toString() вместо аргумента sep в cat().

cat("words not included:", "\n", toString(words),  "\n")

words not included: 
 foo, foo2, foo3 

Answer 2

Просто используйте paste с collapse здесь:

words <- c("foo", "foo2", "foo3")
cat(paste("words not included:", "\n", paste(words, collapse=",")))

words not included: 
 foo,foo2,foo3