# Make LNToutput object from sample
LNToutput <- lnt_read(lnt_sample(copy = FALSE))
# 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