Adjust script to read habitatauteurs from google docx

update habitatauteurs data

Author: RCinbo

data/raw/Habitatauteurs.txt

@@ -5,5 +5,5 @@ water "Waterhabitattypen (31xx en 32xx)" "An Leyssen"
 heide "Heide- en struweelhabitattypen (23xx, 40xx en 5130)" "Steven De Saeger"
 gras "Graslandhabitattypen (6120, 62xx, 64xx en 6510" "Jeroen Vanden Borre"
 veen "Veenhabitattypen (71xx en 72xx)" "Patrik Oosterlynck"
-rots "Rotsachtige habitattypen en grotten (8310)" "Steven De Saeger"
+rots "Rotsachtige habitattypen en grotten (8310)" "Steven De Saeger, Mike Lahaye, Ghis Palmans"
 bos "Boshabitattypen (91xx)" "Arno Thomaes"

data/raw/habitatauteurs.xlsx

@@ -39,9 +39,9 @@ Indien je tekst in *italics* wil schrijven, doe je dat door voor en na dit stuk
 
 # Refereren naar tabellen en figuren
 
-Je kan ook refereren naar de verschillende tabellen en figuren in het originele document, dat doe je niet door het nummer (bijvoorbeeld figuur 6.3) te gebruiken maar wel zo:
+Je kan ook refereren naar de verschillende tabellen en figuren in het originele document, dat doe je **niet** door het nummer (bijvoorbeeld figuur 6.3) te gebruiken maar wel zo:
 
-- Schrijf tabel \\\@ref(tab:`r params$id`-habitattypen) om te refereren naar de tabel met de verschillende habitattypes en habitatname.
+- Schrijf tabel \\\@ref(tab:`r params$id`-habitattypen) om te refereren naar de tabel met de verschillende habitattypes en habitat naam.
 - Schrijf figuur \\\@ref(fig:`r params$id`-areaal-verspreiding) om te refereren naar de figuur met kaart(en) van het areaal en de verspreiding.
 - Schrijf tabel \\\@ref(tab:`r params$id`-areaal-tabel) om te refereren naar de tabel met trend, FRR en eindconclusie(s) voor het areaal.
 - Schrijf figuur \\\@ref(fig:`r params$id`-oppervlakte-errorbars) om te refereren naar de figuren met single best value, minimale en maximale oppervlakte.

source/R/creer_lege_paragrafen_habitatauteurs_instructies.Rmd

@@ -78,7 +78,7 @@ for (hoofdstuk in c("zilt", "kustduin", "water", "heide", "gras", "veen",
 #First download from google drive
 drive_download(as_id("1bRmu5IcLQBVwjMrltwdxyUh4QqBQ8Owt"),
   path =
-    find_root_file("data/raw", "habitatauteurs",
+    find_root_file("data/raw", "habitatauteurs.xlsx",
                    criterion = has_file("EU_rapportage_habitats.Rproj")),
   overwrite = TRUE
 )