Discussion :

[DarwinAward]

Bonjour. Je suis bloqué sur R, je cherche à itérer une chaîne de caractères et j'ai bien cherché mais je n'ai pas trouvé comment faire.
Je précise que je suis débutant en programmation et que ce n'est pas du tout mon domaine principal d'étude alors excusez-moi si j'ai la mauvaise terminologie

En gros j'ai une chaîne de caractères, avec les lettres R et L et je voudrai faire une fonction qui lit les lettres une à une et exécute une action selon si c'est R ou L.
Je maîtrise for, while, if, else.. mais je bloque complètement pour la partie lire les lettres une à une.

J'espère avoir été assez clair , merci !

[xavier-Pierre]

bonjour , en utilisant la fonction strsplit et une boucle for

Code :

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

1
2
3
4
5
6
7
 
#exemple
for (x in strsplit('bonjour',"")){
  print(toupper(x))
}
#donne
[1] "B" "O" "N" "J" "O" "U" "R"

cldt

[DarwinAward]

Bonjour xavier-Pierre, merci de ta réponse mais ça ne répond pas entièrement à ma question.
Je me permet un copier-coller de mon message précédent :
En gros j'ai une chaîne de caractères, avec les lettres R et L et je voudrai faire une fonction qui lit les lettres une à une et exécute une action selon si c'est R ou L.

J'ai essayé ce code qui me retourne comme erreur :

Warning message:
In if (x == "D") { :
the condition has length > 1 and only the first element will be used

et [1] "Salut" en sortie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
test <- "DLDL"
 
 
for (x in strsplit(test,"")) {
 
  if (x == "D") {
    print("Salut")
  }
 
  else if (x == "L") {
    print("Coucou")
  }
}

Merci

[xavier-Pierre]

bonsoir , j'ai répondu trop vite

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
 
test <- "DLDL"
test <- strsplit(test,"")[[1]]
 
for (x in 1:length(test)) {
 
  if (test[x] == "D") {
    print("Salut")
  }
 
  else if (test[x] == "L") {
    print("Coucou")
  }
}
 
## variante
library(tidyverse)
test <- "DLDL"
test <- str_split(test,"") %>% flatten()
for (x in test){
 
  if(x == "D"){
    print("Salut")
  }else if(x == "L") {
    print("Coucou")
  }
}

[DarwinAward]

Merci beaucoup xavier-Pierre, ton code fonctionne très bien.
J'ai une dernière question (que j'aurai dû préciser avant, je pensais pouvoir trouver la réponse seul mais je n'ai pas réussi )

Je voudrai faire une fonction permettant de changer les D en L et inversement.
Donc par exemple ma variable test <- "DDLD" devient "LLDL"

Merci encore

[xavier-Pierre]

une solution possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
library(tidyverse)
test="DLDL"
inverserDL <- function(x){
   x <- str_replace_all(x,'D','X') %>% 
     str_replace_all('L','D') %>% 
     str_replace_all('X','L')
 
 }
 
 resultat <- inverserDL(test)

[DarwinAward]

Ce serait possible d'avoir une solution sans extension ?

[xavier-Pierre]

sans ajout librairie

Code :

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

1
2
3
4
5
6
7
8
 
inverserDL <- function(x){
 
   x <- gsub('D','X',x) 
   x <-   gsub('L','D',x)
   x <-   gsub('X','L',x)
 
 }

[DarwinAward]

Merci xavier-Pierre !