correction COG_akinator (#21)

antuki · Jul 1, 2024 · 37a6d4c · 37a6d4c
1 parent 57d68fb
commit 37a6d4c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -114,3 +114,5 @@
 ### juillet 2024
 
 * Les tables COG2022 et COG2022_insee étaient erronées (COG2021 à la place) cf. [#20](https://github.com/antuki/COGugaison/issues/20)
+
+* Correction d'un morceau de code de `COG_akinator` [#21](https://github.com/antuki/COGugaison/issues/21)
diff --git a/R/COG_akinator.R b/R/COG_akinator.R
@@ -62,7 +62,7 @@ COG_akinator <- function (vecteur_codgeo, donnees_insee = TRUE)
     vecteur_codgeo_COG <- get(paste0("COG", annee))[, 1]
     vecteur_codgeo_COG <- vecteur_codgeo_COG[-which(substr(vecteur_codgeo_COG,1, 2) == 97)]
     vecteur_codgeo_COG[which(vecteur_codgeo_COG%in%c("14472"))] <-"14697" #cas l'Oudon
-    if (length(setdiff(vecteur_codgeo_COG,vecteur_codgeo))==0) { # new : avant all(vecteur_codgeo %in% vecteur_codgeo_COG)
+    if (length(setdiff(vecteur_codgeo, vecteur_codgeo_COG))==0) { # new : avant all(vecteur_codgeo %in% vecteur_codgeo_COG)
       COG_possibles <- c(COG_possibles, paste0("COG", annee))
     }
   }
Original file line number	Diff line number	Diff line change
Expand Up		@@ -114,3 +114,5 @@
		### juillet 2024

		* Les tables COG2022 et COG2022_insee étaient erronées (COG2021 à la place) cf. [#20](https://github.com/antuki/COGugaison/issues/20)

		* Correction d'un morceau de code de `COG_akinator` [#21](https://github.com/antuki/COGugaison/issues/21)