Comment itérer une chaîne de caractères ?

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 !

bonjour , en utilisant la fonction strsplit et une boucle for

Code:

---

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

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 :

Citation:

---

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:

---

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 :)

bonsoir , j'ai répondu trop vite

Code:

---

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") } }

---

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 :marteau:)

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

une solution possible

Code:

---

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)

---

Ce serait possible d'avoir une solution sans extension ? :)

sans ajout librairie

Code:

---

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)   }

---

:resolu:

Merci xavier-Pierre !