Liste

Exemple: Montsouris. World Meteorological Organization WMO. WMO - WMO 07156
Meteostat.net https://meteostat.net/fr/station/07156?t=2025-01-23/2025-01-30#google_vignette
prevision-meteo.ch https://www.prevision-meteo.ch/climat/journalier/paris-montsouris
wofrance.fr https://www.wofrance.fr/weather/maps/city?WMO=07156&CONT=frfr&LAND=FR&LEVEL=140&TIME=all

Carte OMM

Code

ig_d("meteo", "station_list", "carte-stations-OMM-anciennes")

Montsouris (07156)

Du dernier mois

Code

fread(paste0("https://www.meteo60.fr/stations-releves/station-mois-csv?station_id=07156&mois=", month(Sys.Date()), "&annee=", year(Sys.Date())-2000)) %>%
  select(-V7) %>%
  #filter(!is.na(mean_temp)) %>%
  mutate(mois = month(Sys.Date()),
         jour = parse_number(Jour),
         annee = paste0("20", year(Sys.Date())-2000) %>% as.numeric,
         date = as.Date(ISOdate(annee, mois, jour))) %>%
  select(-mois, - annee, -jour) %>%
  select(date, Jour, everything()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

date	Jour	Temperature mini	Temperature maxi	Temperature moy.	Precipitations	Ensoleillement
2025-03-26	Mercredi 26	9.6	15.7	12.5	0.0	3h12
2025-03-25	Mardi 25	-	14.8	-	0.2	7h18
2025-03-24	Lundi 24	8.4	-	-	0.0*	-
2025-03-23	Dimanche 23	7.1	14.0	10.5	1.4	1h06
2025-03-22	Samedi 22	11.3	18.8	15.0	7.1	2h24
2025-03-21	Vendredi 21	11.5	19.4	15.0	5.2	0h06
2025-03-20	Jeudi 20	6.7	20.1	13.0	0.0	9h06
2025-03-19	Mercredi 19	5.2	18.5	11.5	0.0	10h36
2025-03-18	Mardi 18	2.8	13.6	8.0	0.0	11h12
2025-03-17	Lundi 17	2.1	12.9	7.5	0.0	11h12
2025-03-16	Dimanche 16	3.5	11.7	7.5	0.0	3h12
2025-03-15	Samedi 15	1.7	9.8	5.5	0.0	3h06
2025-03-14	Vendredi 14	2.4	8.5	5.0	0.0	3h36
2025-03-13	Jeudi 13	-	-	-	0.4	3h36
2025-03-12	Mercredi 12	3.8	8.4	6.0	0.2	0h24
2025-03-11	Mardi 11	-	10.9	-	0.8	2h24
2025-03-10	Lundi 10	11.0	-	-	2.0*	-
2025-03-09	Dimanche 09	9.4	18.9	14.0	0.1	3h18
2025-03-08	Samedi 08	8.6	18.6	13.5	0.0	7h48
2025-03-07	Vendredi 07	7.2	18.3	12.5	0.0	9h24
2025-03-06	Jeudi 06	4.3	18.0	11.0	0.0	10h30
2025-03-05	Mercredi 05	4.0	18.2	11.0	0.0	10h30
2025-03-04	Mardi 04	3.9	13.7	8.5	0.0	5h00
2025-03-03	Lundi 03	1.6	12.6	7.0	0.0	10h18
2025-03-02	Dimanche 02	1.4	11.8	6.5	0.0	10h18
2025-03-01	Samedi 01	2.0	8.0	5.0	0.0	6h42

Dernier jour

Code

tibble(date = seq.Date(from = Sys.Date() - days(1), 
                                to = Sys.Date(), 
                                by = "day")) %>%
  mutate(url = paste0("https://www.meteo60.fr/stations-releves/station-jour-csv?station_id=-07156&date=", paste0(format(date, "%d/%m/%Y")))) %>%
  mutate(data = map(url, ~ fread(.))) %>%
  mutate(data = lapply(data, function(df) {
    df$`Vent moyen` <- as.character(df$`Vent moyen`)
    df$`V9` <- as.character(df$`V9`)
    df$`-` <- as.character(df$`-`)
    return(df)
  })) %>%
  unnest %>%
  select(-url) %>%
  select(1:14) %>%
  arrange(desc(date), desc(`Heure legale`)) %>%
  print_table_conditional()

Dernière semaine

Code

tibble(date = seq.Date(from = Sys.Date() - weeks(1), 
                                to = Sys.Date(), 
                                by = "day")) %>%
  mutate(url = paste0("https://www.meteo60.fr/stations-releves/station-jour-csv?station_id=-07156&date=", paste0(format(date, "%d/%m/%Y")))) %>%
  mutate(data = map(url, ~ fread(.))) %>%
  mutate(data = lapply(data, function(df) {
    df$`Vent moyen` <- as.character(df$`Vent moyen`)
    df$`V9` <- as.character(df$`V9`)
    df$`-` <- as.character(df$`-`)
    return(df)
  })) %>%
  unnest %>%
  select(-url) %>%
  select(1:14) %>%
  arrange(desc(date), desc(`Heure legale`)) %>%
  print_table_conditional()

Paris Roissy CDG (07157)

Du dernier mois

Code

fread(paste0("https://www.meteo60.fr/stations-releves/station-mois-csv?station_id=07157&mois=", month(Sys.Date()), "&annee=", year(Sys.Date())-2000)) %>%
  select(-V7) %>%
  #filter(!is.na(mean_temp)) %>%
  mutate(mois = month(Sys.Date()),
         jour = parse_number(Jour),
         annee = paste0("20", year(Sys.Date())-2000) %>% as.numeric,
         date = as.Date(ISOdate(annee, mois, jour))) %>%
  select(-mois, - annee, -jour) %>%
  select(date, Jour, everything()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

date	Jour	Temperature mini	Temperature maxi	Temperature moy.	Precipitations	Ensoleillement
2025-03-26	Mercredi 26	8.7	15.1	11.5	0.0	4h00
2025-03-25	Mardi 25	-	15.0	-	0.1	5h48
2025-03-24	Lundi 24	7.7	-	-	0.0*	-
2025-03-23	Dimanche 23	7.0	13.5	10.0	0.6	1h36
2025-03-22	Samedi 22	11.2	18.2	14.5	4.2	2h30
2025-03-21	Vendredi 21	10.7	19.5	15.0	3.6	0h42
2025-03-20	Jeudi 20	7.0	19.2	13.0	0.0	9h30
2025-03-19	Mercredi 19	5.9	18.1	12.0	0.0	10h30
2025-03-18	Mardi 18	0.3	12.9	6.5	0.0	10h48
2025-03-17	Lundi 17	0.6	11.7	6.0	0.0	10h48
2025-03-16	Dimanche 16	2.2	11.2	6.5	0.0	6h54
2025-03-15	Samedi 15	0.4	9.2	4.5	0.0	4h30
2025-03-14	Vendredi 14	0.3	8.5	4.0	0.0	6h12
2025-03-13	Jeudi 13	-	-	-	0.2	3h24
2025-03-12	Mercredi 12	1.5	7.5	4.5	0.2	0h48
2025-03-11	Mardi 11	-	9.7	-	0.2	1h12
2025-03-10	Lundi 10	10.4	-	-	2.0*	-
2025-03-09	Dimanche 09	9.2	17.8	13.5	0.0	5h12
2025-03-08	Samedi 08	8.4	18.4	13.0	0.0	8h54
2025-03-07	Vendredi 07	7.3	17.8	12.5	0.0	8h12
2025-03-06	Jeudi 06	5.5	18.1	11.5	0.0	10h06
2025-03-05	Mercredi 05	1.9	18.5	10.0	0.0	10h00
2025-03-04	Mardi 04	1.3	13.8	7.5	0.0	7h36
2025-03-03	Lundi 03	-0.2	11.4	5.5	0.0	9h48
2025-03-02	Dimanche 02	0.3	10.8	5.5	0.0	9h54
2025-03-01	Samedi 01	0.9	6.5	3.5	0.0	6h30

Dernier jour

Code

tibble(date = seq.Date(from = Sys.Date() - days(1), 
                                to = Sys.Date(), 
                                by = "day")) %>%
  mutate(url = paste0("https://www.meteo60.fr/stations-releves/station-jour-csv?station_id=-07157&date=", paste0(format(date, "%d/%m/%Y")))) %>%
  mutate(data = map(url, ~ fread(.))) %>%
  mutate(data = lapply(data, function(df) {
    df$`Nebulosite` <- as.character(df$`Nebulosite`)
    df$`Vent moyen` <- as.character(df$`Vent moyen`)
    df$`V9` <- as.character(df$`V9`)
    df$`-` <- as.character(df$`-`)
    return(df)
  })) %>%
  unnest %>%
  select(-url) %>%
  select(1:14) %>%
  arrange(desc(date), desc(`Heure legale`)) %>%
  print_table_conditional()

Marseille Marignane (07650)

Du dernier mois

Code

fread(paste0("https://www.meteo60.fr/stations-releves/station-mois-csv?station_id=07650&mois=", month(Sys.Date()), "&annee=", year(Sys.Date())-2000)) %>%
  select(-V7) %>%
  #filter(!is.na(mean_temp)) %>%
  mutate(mois = month(Sys.Date()),
         jour = parse_number(Jour),
         annee = paste0("20", year(Sys.Date())-2000) %>% as.numeric,
         date = as.Date(ISOdate(annee, mois, jour))) %>%
  select(-mois, - annee, -jour) %>%
  select(date, Jour, everything()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

date	Jour	Temperature mini	Temperature maxi	Temperature moy.	Precipitations	Ensoleillement
2025-03-26	Mercredi 26	6.5	19.3	12.5	0.0	11h12
2025-03-25	Mardi 25	-	19.3	-	0.0	8h30
2025-03-24	Lundi 24	-	-	-	0.4*	-
2025-03-23	Dimanche 23	8.4	15.3	11.5	6.9	3h00
2025-03-22	Samedi 22	12.9	19.2	16.0	20.1	2h00
2025-03-21	Vendredi 21	12.1	21.7	16.5	4.2	2h30
2025-03-20	Jeudi 20	8.8	18.9	13.5	0.0	1h42
2025-03-19	Mercredi 19	3.7	14.8	9.0	0.0	0h36
2025-03-18	Mardi 18	5.8	18.7	12.0	0.0	9h18
2025-03-17	Lundi 17	0.5	16.4	8.0	0.0	10h54
2025-03-16	Dimanche 16	1.8	12.0	6.5	0.0	10h54
2025-03-15	Samedi 15	5.4	12.7	9.0	0.0	5h24
2025-03-14	Vendredi 14	6.8	8.8	7.5	6.0	0h00
2025-03-13	Jeudi 13	-	-	-	0.6	1h00
2025-03-12	Mercredi 12	-	16.8	-	0.0	6h36
2025-03-11	Mardi 11	-	-	-	22.2*	-
2025-03-10	Lundi 10	11.1	-	-	35.2*	-
2025-03-09	Dimanche 09	11.9	16.9	14.0	33.7	0h00
2025-03-08	Samedi 08	12.2	18.9	15.5	0.0	7h18
2025-03-07	Vendredi 07	6.9	17.7	12.0	0.0	0h12
2025-03-06	Jeudi 06	6.2	18.5	12.0	0.0	8h24
2025-03-05	Mercredi 05	4.6	18.0	11.0	0.0	10h42
2025-03-04	Mardi 04	4.1	17.2	10.5	0.0	8h36
2025-03-03	Lundi 03	3.9	16.8	10.0	0.0	9h42
2025-03-02	Dimanche 02	2.3	15.6	8.5	0.0	8h12
2025-03-01	Samedi 01	2.8	13.3	8.0	13.7	2h36

Dernier jour

Code

tibble(date = seq.Date(from = Sys.Date() - days(1), 
                                to = Sys.Date(), 
                                by = "day")) %>%
  mutate(url = paste0("https://www.meteo60.fr/stations-releves/station-jour-csv?station_id=-07650&date=", paste0(format(date, "%d/%m/%Y")))) %>%
  mutate(data = map(url, ~ fread(.))) %>%
  mutate(data = lapply(data, function(df) {
    df$`Nebulosite` <- as.character(df$`Nebulosite`)
    df$`Vent moyen` <- as.character(df$`Vent moyen`)
    df$`V9` <- as.character(df$`V9`)
    df$`-` <- as.character(df$`-`)
    return(df)
  })) %>%
  unnest %>%
  select(-url) %>%
  select(1:14) %>%
  arrange(desc(date), desc(`Heure legale`)) %>%
  print_table_conditional()