From 167845841169f822b2ec791f4a5f7147bcb9d224 Mon Sep 17 00:00:00 2001
From: Joan Maspons <joanmaspons@gmail.com>
Date: Tue, 21 Jun 2022 02:04:00 +0200
Subject: [PATCH] =?UTF-8?q?Fix=20i=20puja=20versi=C3=B3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 DESCRIPTION                       | 2 +-
 R/projecte_LangToolsOSM.R         | 8 ++++++--
 exec/projecte-PPCC_calle-carrer.r | 7 ++++---
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index fd8a9ed37..798af1cdf 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: toponimsCat
 Title: Eines per ajudar a afegir l'etiqueta "name:ca" a OpenStreetMap
-Version: 0.4
+Version: 0.5
 Authors@R: 
     person("Joan", "Maspons", email="joanmaspons@gmail.com", role=c("aut", "cre"))
 Maintainer: Joan Maspons <joanmaspons@gmail.com>
diff --git a/R/projecte_LangToolsOSM.R b/R/projecte_LangToolsOSM.R
index c77d88342..948362649 100644
--- a/R/projecte_LangToolsOSM.R
+++ b/R/projecte_LangToolsOSM.R
@@ -442,7 +442,7 @@ preparaEdicions<- function(arrelProjecte, usuari, fitxerContrasenya){
 
       cmd[i]<- paste0('update_osm_objects_from_report --username ', usuari)
       if (!missing(fitxerContrasenya)){
-        cmd[i]<- paste0(cmd[i], ' --passwordFile "', fitxerContrasenya, '"')
+        cmd[i]<- paste0(cmd[i], ' --passwordfile "', fitxerContrasenya, '"')
       }
       cmd[i]<- paste0(cmd[i], ' -v --confirmed-edits --confirm-overwrites --input-file "', file.path(arrelProjecte, "edicions", nomFitxer), '" name:ca')
       if (!all(is.na(edicions$`alt_name:ca`))){
@@ -480,11 +480,15 @@ actualitzaInformesCarregats<- function(arrelProjecte, esborraInformesDesactualit
   ret<- character()
   for (i in seq_along(fitxersFets)){
     if (esborraInformesDesactualitzats){
-      file.remove(fitxersInformesOri[i])
+      suppressWarnings(file.remove(fitxersInformesOri[i]))
       ret<- c(ret, fitxersInformesOri[i])
       next
     }
 
+    if (!file.exists(fitxersInformesOri[i])){
+      next
+    }
+
     informeOri<- utils::read.table(fitxersInformesOri[i], header=TRUE, sep="\t", skip=1, check.names=FALSE)
     carregat<- utils::read.table(fitxersFets[i], header=TRUE, sep="\t", skip=1, check.names=FALSE)
 
diff --git a/exec/projecte-PPCC_calle-carrer.r b/exec/projecte-PPCC_calle-carrer.r
index 4fe8e982e..70b5e5185 100644
--- a/exec/projecte-PPCC_calle-carrer.r
+++ b/exec/projecte-PPCC_calle-carrer.r
@@ -52,13 +52,14 @@ comarques$revisio<- generaRevisions_regexName(informes=comarques$informe, arrelP
 ## Fusiona les revisions fetes amb els informes i genera ordres per carregar-los a OSM ----
 usuari<- "$NomUsuari" # Modifiqueu-ho amb el vostre nom d'usuari a OSM
 
-cmd<- preparaEdicions(arrelProjecte=arrelProjecte, usuari=usuari)
+cmd<- preparaEdicions(arrelProjecte=arrelProjecte, usuari=usuari, fitxerContrasenya=fitxerpas)
 cmd<- na.omit(cmd)
 
 ## Afegeix paràmetres a les ordres. Veure «update_osm_objects_from_report --help» per les opcions de LangToolsOSM
 nomComarca<- gsub(paste0(".+--input-file \\\"", arrelProjecte, "/edicions/informe-|_name-calle.tsv\\\".+"), "", cmd)
-cmd<- paste0(cmd, " --changeset-hashtags \"#toponimsCat;#calle_carrer\" ",
-            " --changeset-comment \"Afegeix name:ca a carrers de ", nomComarca, "\"")
+cmd<- paste0(cmd, " --changeset-hashtags \"#toponimsCat;#calle_carrer\"",
+            " --batch 100 --changeset-comment \"Afegeix name:ca a carrers de ", nomComarca, "\"")
+cat(cmd, sep="\n")
 
 ## Executa les ordres
 for (i in 1:length(cmd)){