R/getDesc.R

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