Fix i puja versió

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="[email protected]", role=c("aut", "cre"))
 Maintainer: Joan Maspons <[email protected]>

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)
 

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)){