Je me trouve devant un problème que je n'arrive pas à résoudre, j'espère que quelqu'un d'entre vous pourra m'aider ! voilà ma petite histoire:
J'ai un dataframe MyTable, qui ressemble à ça:
Code : Tout sélectionner
MyTable <- tribble( ~colA, ~colB, ~colC, ~colD,
0,2,0.5,1,
2,4,1,1,
5,25,2.5,1)
Mon but est de récupérer les valeurs de MyTable dans une liste comme ça : (je crée dans ma liste une séquence de chiffres avec la fct seq())
Code : Tout sélectionner
MyList <- list( liste1= seq(MyTable$colA[1],MyTable$colB[1],MyTable$colC[1]) , Val=MyTable$colD[1],
liste2= seq(MyTable$colA[2],MyTable$colB[2],MyTable$colC[2]) , Val=MyTable$colD[2],
liste3= seq(MyTable$colA[3],MyTable$colB[3],MyTable$colC[3]) , Val=MyTable$colD[3])
Jusque là, pas de problème, je crée bien une liste comme je le souhaite:
Code : Tout sélectionner
> str(MyList)
List of 6
$ liste1: num [1:5] 0 0.5 1 1.5 2
$ Val : num 1
$ liste2: num [1:3] 2 3 4
$ Val : num 1
$ liste3: num [1:9] 5 7.5 10 12.5 15 17.5 20 22.5 25
$ Val : num 1
Mon problème, c'est que je veux automatiser la chose sur une application shiny. Et dans cette appli, le dataframe MyTable n'aura pas à chaque fois le même nombre de lignes !
Je voudrais donc arriver créer ma liste en fonction du nombre de lignes de MyTable.
Si MyTable à n lignes je veux une liste telle que MyList<- list( liste(1) = ... , liste(2)= ..., liste(n)= ... ) avec les valeurs correspondantes évidemment.
Ca fait 15 jours que je bloque sur le problème , j'imagine qu'il doit falloir boucler en utilisant nrow(MyTable) mais je n'y arrive pas, j'ai essayé en utilisant des fonction de purrr mais je ne maitrise pas les fonctions non plus !
Merci à l'âme charitable qui tentera d'éclaircir mes interrogations !
