Skip to content
Snippets Groups Projects
Commit 9edd9468 authored by Vincent DUPONT's avatar Vincent DUPONT
Browse files

Modification du calcul des cas colombien

On ne passe plus par source, mais par pays d'infection
parent 32502351
No related branches found
No related tags found
No related merge requests found
......@@ -3,12 +3,12 @@ consultation_har_filter <- function(df, source = "Any", new_attack, dateStart =
# Packages
require(dplyr)
# Modification du filtrage des sources
# Modification du filtrage des pays d'infection
if(source != "Any"){
if(source == "CO"){ # Changé de "FG" à "CO"
df <- df %>% filter(source == "CO") # Changé de "FR-GF" à "CO"
if(source == "CO"){
df <- df %>% filter(infection_country == "CO") # Changé ici
} else if(source == "BR"){
df <- df %>% filter(source == "BR")
df <- df %>% filter(infection_country == "BR") # Changé ici
}
}
......
......@@ -26,21 +26,24 @@ HAR_sub <- reactive({
})
# Séparation des données par pays
# Séparation des données par pays d'infection
HAR_br <- reactive({
HAR_sub() %>% filter(source == "BR")
HAR_sub() %>% filter(infection_country == "BR") # Modifié ici
})
HAR_co <- reactive({
# Vérification au niveau du filtrage initial
initial_data <- HAR_sub() %>% filter(source == "CO")
print("Données colombiennes après filtrage initial :")
print(paste("Nombre de cas :", nrow(initial_data)))
print("Exemple de dates :")
print(head(initial_data$consultation_date))
return(initial_data)
HAR_sub() %>% filter(infection_country == "CO") # Modifié ici
})
# Fonction réactive pour compter les cas colombiens
HAR_co_count <- reactive({
nrow(HAR_co())
})
# Fonction réactive pour compter les cas brésiliens
HAR_br_count <- reactive({
nrow(HAR_br())
})
# Création des tableaux temporels pour le Brésil
HAR_br_tab <- reactive({
agg <- as.numeric(input$agg)
......
......@@ -57,23 +57,26 @@ unique_loc <- unique_loc.shp %>%
mutate(coords.x1 = coords_loc[,1], coords.x2 = coords_loc[,2]) %>%
st_drop_geometry()
# Séparation et traitement des données par pays
# Séparation et traitement des données par pays d'infection
unique_loc_br <- unique_loc %>%
filter(country == "BR") %>%
mutate(infection_country = "BR") %>%
filter(!is.na(id_sivep))
unique_loc_co <- unique_loc %>%
filter(country == "CO") %>%
mutate(infection_country = "CO") %>%
filter(!is.na(id_sivep))
# Gestion des localisations qui apparaissent dans les deux pays
unique_loc_both <- unique_loc_br %>%
filter(!is.na(id_sivep) & !is.na(id_cdps)) %>%
mutate(id_sivep = id_cdps) %>%
mutate(country = "CO") %>%
mutate(coords.x1 = coords.x1 + 0.001) %>%
mutate(coords.x2 = coords.x2 + 0.001) %>%
mutate(name = paste(name, "(CO)"))
mutate(id_sivep = id_cdps,
country = "CO",
infection_country = "CO",
coords.x1 = coords.x1 + 0.001,
coords.x2 = coords.x2 + 0.001,
name = paste(name, "(CO)"))
# Mise à jour des noms pour le Brésil
unique_loc_br <- unique_loc_br %>%
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment