fix loop to download all docx files from habitatauteurs

Author: RCinbo

source/R/habitatauteurs_from_docx.R

@@ -5,7 +5,10 @@ library(parsermd)
 library(googledrive)
 library(jsonlite)
 #library(synthesisr) might be interesting to find and remove duplicates from the
-#however, they do not allow to keep the labels that the bib items already have.
+# bibliography.
+# however, they do not allow to keep the labels that the bib items already have.
+
+drive_auth()
 
 #download the docx files from google drive
 folder <- "https://drive.google.com/drive/folders/10cZDtfWFMglGF4ICvBzv6HXkfsqT3eP1"
@@ -21,7 +24,7 @@ if (!file.exists(
                               has_file("EU_rapportage_habitats.Rproj")))
 }
 #download all files in the local folder
-for (i in seq_along(files$name)) {
+for (i in which(str_detect(files$name, ".docx"))) {
   drive_download(
     as_id(files$id[i]),
     path =