if (FALSE) {
x <- udpipe_download_model(language = "dutch-lassysmall")
x$file_model
ud_english <- udpipe_load_model(x$file_model)
x <- udpipe_download_model(language = "english")
x$file_model
ud_english <- udpipe_load_model(x$file_model)
x <- udpipe_download_model(language = "hebrew")
x$file_model
ud_hebrew <- udpipe_load_model(x$file_model)
}
x <- udpipe_download_model(language = "dutch-lassysmall", model_dir = tempdir())
x$file_model
if(!x$download_failed){
ud_dutch <- udpipe_load_model(x$file_model)
}
## cleanup for CRAN
if(file.exists(x$file_model)) file.remove(x$file_model)
Run the code above in your browser using DataLab