# NOT RUN {
# Make LNToutput object from sample
LNToutput <- lnt_read(lnt_sample())
# extract meta and make corrections
correction <- LNToutput@meta[grepl("Wikipedia", LNToutput@meta$Headline), ]
correction$Newspaper <- "Wikipedia"
# replace corrected meta information
LNToutput <- lnt_add(to = LNToutput, what = correction, where = "meta", replace = TRUE)
# }
Run the code above in your browser using DataLab