How do I count the number of words in a text (string)?

Question

I have this string vector (for example):

str <- c(\"this is a string current trey\",
    \"feather rtttt\",
    \"tusla\",
    \"laq\")

Answer 1

Use the stringi package and stri_count:

require(stringi)
str <- c(
"this is a string current trey",
"nospaces",
"multiple    spaces",
"   leadingspaces",
"trailingspaces    ",
"    leading and trailing    ",
"just one space each")

> stri_count(str,regex="\\S+")
[1] 6 1 2 1 1 3 4