R/getHeadings.R

getHeadings <- function(websource) {
  sapply(1:nrow(tm::meta(websource)), function(x) {
    return(tm::meta(websource[[x]])$heading)
  })
}
dhandoko5/stocksentiment documentation built on May 15, 2019, 8:21 a.m.