data(europeananews)
x <- subset(europeananews, doc_id %in% "enp_NL.kb.bio")
x <- head(x, n = 250)
path <- "traindata.txt"
# \dontshow{
path <- tempfile("traindata_", fileext = ".txt")
# }
bio <- write_nametagger(x, file = path)
str(bio)
# \dontshow{
# clean up for CRAN
file.remove(path)
# }
Run the code above in your browser using DataLab