bugfixes

Dockerfile

@@ -108,6 +108,13 @@ RUN apt-get update \
     r-cran-tinytex \
     r-cran-webshot
 
+## Install textshape
+RUN  apt-get update \
+  && apt-get install -y --no-install-recommends \
+    libfribidi-dev \
+    libharfbuzz-dev \
+  && Rscript -e 'remotes::install_cran("textshape")'
+
 ## Install ragg
 RUN  apt-get update \
   && apt-get install -y --no-install-recommends \
@@ -176,7 +183,11 @@ RUN  Rscript -e 'remotes::install_cran("lipsum")'
 RUN  Rscript -e 'remotes::install_cran("here")'
 
 ## Install gert
-RUN  Rscript -e 'remotes::install_cran("gert")'
+RUN  apt-get update \
+  && apt-get install -y  --no-install-recommends \
+    libcurl4-openssl-dev \
+    libssl-dev \
+  && Rscript -e 'remotes::install_cran("gert")'
 
 ## Install webshot dependency
 RUN  Rscript -e 'webshot::install_phantomjs()'

R/ebook.R

@@ -17,7 +17,7 @@ epub_book <- function() {
     validate_rightsholder() -> fm
   assert_that(
     has_name(fm, "reportnr"), has_name(fm, "year"),
-    has_name("cover_description")
+    has_name(fm, "cover_description")
   )
   style <- ifelse(has_name(fm, "style"), fm$style, "INBO")
   assert_that(length(style) == 1)

R/pdf_report.R

@@ -132,7 +132,7 @@ pdf_report <- function(
   var_arg <- c(
     documentclass = "report",
     style = c(
-      Flanders_en = "flanders_report", Flandres_fr = "flandre_report",
+      Flanders_en = "flanders_report", Flanders_fr = "flandre_report",
       Vlaanderen_nl = "vlaanderen_report", INBO_nl = "inbo_report"
     )[paste(fm$style, fm$lang, sep = "_")] |>
       unname(),