Running examples in 'GermaParl-Ex.R' failed
The error most likely occurred in:

> ### Name: germaparl_download_lda
> ### Title: Use topicmodels prepared for GermaParl.
> ### Aliases: germaparl_download_lda topics germaparl_load_lda
> 
> ### ** Examples
> 
> # This example assumes that the directories used by the CWB do not yet exist, so
> # temporary directories are created.
> cwb_dirs <- cwbtools::create_cwb_directories(prefix = tempdir(), ask = FALSE)
-- Create CWB directories ------------------------------------------------------
i Using existing directory D:\temp\RtmpW2w4ev as parent directory for registry
  directory and the corpus directory.
i registry directory D:\temp\RtmpW2w4ev/registry already exists
i corpus directory D:\temp\RtmpW2w4ev/indexed_corpora already exists
v environment variable `CORPUS_REGISTRY` set as: D:\temp\RtmpW2w4ev/registry
> 
> samplemode <- TRUE
> corpus_id <- "GERMAPARLSAMPLE" # for full corpus: corpus_id <- "GERMAPARL"
> 
> dir.create(file.path(cwb_dirs[["corpus_dir"]], tolower(corpus_id)))
Warning in dir.create(file.path(cwb_dirs[["corpus_dir"]], tolower(corpus_id))) :
  'D:\temp\RtmpW2w4ev\indexed_corpora\germaparlsample' already exists
> 
> # Download topic model
> germaparl_download_lda(
+   k = 30, # k = 250 recommended for full GERMAPARL corpus
+   data_dir = file.path(cwb_dirs[["corpus_dir"]], tolower(corpus_id)),
+   sample = samplemode
+ )
i get Zenodo record for doi 10.5281/zenodo.3823245
v get Zenodo record for doi 10.5281/zenodo.3823245 ... done

i starting to download LDA model
trying URL 'https://zenodo.org/api/files/1f191114-a9fa-4dc9-a4df-950c23b1ff60/germaparlsample_lda_30.rds'
Warning in download.file(url = lda_remote, destfile = lda_local) :
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
x cannot download file from https://zenodo.org/api/files/1f191114-a9fa-4dc9-a4df-950c23b1ff60/germaparlsample_lda_30.rds
> lda <- germaparl_load_lda(
+   k = 30L, registry_dir = cwb_dirs[["registry_dir"]],
+   sample = samplemode
+ )
... loading topicmodel for k = 30
Warning in germaparl_load_lda(k = 30L, registry_dir = cwb_dirs[["registry_dir"]],  :
  no topicmodel available for k provided
> lda_terms <- topicmodels::terms(lda, 10)
Error in terms.default(lda, 10) : no terms component nor attribute
Calls: <Anonymous> -> <Anonymous> -> terms.default
Execution halted