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

> ### Name: GermaParl-package
> ### Title: GermaParl R Data Package.
> ### Aliases: GermaParl-package _PACKAGE GermaParl
> ### Keywords: package
> 
> ### ** Examples
> 
> # This example uses the GERMAPARLSAMPLE corpus rather than the full GERMAPARL 
> # so that the time consumed for testing the code is not excessive. To apply
> # everything on GERMAPARL rather than GERMAPARLSAMPLE, set variable 'samplemode' 
> # to FALSE, or simply omit argument 'sample'.
> 
> samplemode <- TRUE
> corpus_id <- "GERMAPARLSAMPLE" # to get/amend full corpus: corpus_id <- "GERMAPARL"
> 
> # 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 = interactive())
Using directory 'D:\temp\RtmpoPRg6f' as parent directory for registry directory and the corpus directory. (Directory already exists.)
... registry directory 'D:\temp\RtmpoPRg6f/registry' has been created successfully.
... environment variable CORPUS_REGISTRY set as: D:\temp\RtmpoPRg6f/registry
... corpus directory 'D:\temp\RtmpoPRg6f/indexed_corpora' has been created successfully.
> registry_tmp <- cwb_dirs[["registry_dir"]]
> 
> # Download corpus from Zenodo
> germaparl_download_corpus(
+   registry_dir = registry_tmp,
+   corpus_dir = cwb_dirs[["corpus_dir"]],
+   verbose = FALSE,
+   sample = samplemode
+ )
Warning in download.file(url = tarball, destfile = corpus_tarball, quiet = !verbose) :
  cannot open URL 'https://zenodo.org/api/files/1f191114-a9fa-4dc9-a4df-950c23b1ff60/germaparlsample_v0.1.0.tar.gz': HTTP status was '503 Service Unavailable'
Error in download.file(url = tarball, destfile = corpus_tarball, quiet = !verbose) : 
  cannot open URL 'https://zenodo.org/api/files/1f191114-a9fa-4dc9-a4df-950c23b1ff60/germaparlsample_v0.1.0.tar.gz'
Calls: germaparl_download_corpus -> corpus_install -> download.file
Execution halted