R/nwords.R
In petermeissner/idep: Helper functions and procedures for the IDEP Project
#' function counting the number of words
#' @param text character vector
#'
nwords <- function(text){
if ( length(text)==1 ) {
length(words(text))
} else {
unlist(lapply(text, function(text) length(words(text)) ))
}
}
petermeissner/idep documentation built on May 25, 2019, 1:53 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' function counting the number of words
#' @param text character vector
#'
nwords <- function(text){
if ( length(text)==1 ) {
length(words(text))
} else {
unlist(lapply(text, function(text) length(words(text)) ))
}
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.