# NOT RUN {
library(udpipe)
udmodel <- udpipe_download_model("dutch-lassysmall")
if(packageVersion("udpipe") >= "0.7"){
data(airbnb_chunks, package = "crfsuite")
airbnb_chunks <- head(airbnb_chunks, 20)
airbnb_tokens <- unique(airbnb_chunks[, c("doc_id", "text")])
airbnb_tokens <- udpipe(airbnb, object = udmodel)
head(airbnb_tokens)
head(airbnb_chunks)
## Add the entity of the chunk to the tokenised dataset
x <- merge(airbnb_chunks, airbnb_tokens)
table(x$chunk_entity)
}
## cleanup for CRAN
file.remove(udmodel$file_model)
# }
Run the code above in your browser using DataLab