Discussion :

[Pix_elle]

Bonsoir,

J'ai un script R que je lance environ 1 fois par an. L'an dernier, il fonctionnait parfaitement.
En voulant le relancer ce soir, ce dernier me sort des erreurs que je ne comprends pas (je ne suis pas très à l'aise avec R et son langage)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
data.table 1.14.8 using 4 threads (see ?getDTthreads).  Latest news: r-datatable.com
── Attaching core tidyverse packages ───────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.1     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.1     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     
── Conflicts ─────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::between()     masks data.table::between()
✖ dplyr::filter()      masks stats::filter()
✖ dplyr::first()       masks data.table::first()
✖ lubridate::hour()    masks data.table::hour()
✖ lubridate::isoweek() masks data.table::isoweek()
✖ dplyr::lag()         masks stats::lag()
✖ dplyr::last()        masks data.table::last()
✖ lubridate::mday()    masks data.table::mday()
✖ lubridate::minute()  masks data.table::minute()
✖ lubridate::month()   masks data.table::month()
✖ lubridate::quarter() masks data.table::quarter()
✖ lubridate::second()  masks data.table::second()
✖ purrr::transpose()   masks data.table::transpose()
✖ lubridate::wday()    masks data.table::wday()
✖ lubridate::week()    masks data.table::week()
✖ lubridate::yday()    masks data.table::yday()
✖ lubridate::year()    masks data.table::year()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
 
Attachement du package : ‘scales’
 
L'objet suivant est masqué depuis ‘package:purrr’:
 
    discard
 
L'objet suivant est masqué depuis ‘package:readr’:
 
    col_factor
 
 
Attachement du package : ‘magrittr’
 
L'objet suivant est masqué depuis ‘package:purrr’:
 
    set_names
 
L'objet suivant est masqué depuis ‘package:tidyr’:
 
    extract
 
There were 13 warnings (use warnings() to see them)

Pouvez-vous me venir en aide ?
L'ensemble de mes packages sont à jour. Et je n'ai pas touché à R Studio depuis la dernière fois où j'ai exécuté le code qui tombe aujourd'hui en échec.
Au niveau du logiciel, je suis sur la version 2022.02.2 Build 485 (on me dit que je suis sur la dernière version..)

Merci infiniment par avance !

[xavier-Pierre]

bonjour ,
cela signifie que plusieurs packages ont des fonctions de même noms

dplyr::between() masks data.table::between()
si dans le script on utilise la fonction between() il utilisera la fonction du package dplyr mais si on voulait utiliser celle du package data.table on aurait une erreur ,dans ce cas là il faut préciser le package de cette façon: data.table::between()

pour savoir dans le script où se situent les problèmes de conflit il faut charger le package conflicted (library(conflicted))
à chaque conflit il y aura un message , il faudra donc préciser le package dans la ligne de script , par ex: between() ==> data.table::between()
cdlt

[Pix_elle]

Bonjour,

Merci pour votre retour.
En creusant un peu plus, visiblement, les fonctions en conflit sont bien gérées dans le code.


Les erreurs générées semblent venir d'un problème sur une fonction que j'utilise (fonction créée).
l'erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Error in rep(1, each = as.integer((e_18yo + 1)/2)) : 
  invalid 'each' argument

La fonction appelée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
get_taux_and_prediction_dep <-function(table_personne_raw, table_mortality_raw){
  timestamp()
  txt_step <- 'Projection des personnes scénario 1'
  Encoding(txt_step) <- "UTF_8"
  print(txt_step)
  list_df_by_dept <- split(table_personne_raw, f=table_personne_raw$DEPARTEMENT)
  stat_for_table_personne_list <- list()
  for (dept in 1:length(list_df_by_dept)){
    dept_name <- list_df_by_dept[[dept]]$DEPARTEMENT[1]
    table_personne_filtered <- list_df_by_dept[[dept]] %>% select(., -c('DEPARTEMENT'))
    stat_for_table_personne_filtered <- get_taux_and_prediction(table_personne_filtered, table_mortality_raw)
    stat_for_table_personne_filtered$DEPARTEMENT <- dept_name
    stat_for_table_personne_list[[dept]] <- stat_for_table_personne_filtered
    print(dept_name)
  }
  names(stat_for_table_personne_list) <- paste("name", 1:length(list_df_by_dept), sep = "_")
  all_stats <- bind_rows(stat_for_table_personne_list)
  all_stats$departement <- substr(all_stats$DEPARTEMENT, 11, 12)
  return(all_stats)
}

Je sais pas si juste avec ça, ça peut vous aider...

[xavier-Pierre]

est ce que (e_18yo + 1)/2) ne serait pas négatif?