web-dev-qa-db-fra.com

Fractionner une chaîne par un nombre quelconque d'espaces

J'ai la chaîne suivante:

[1] "10012      ----      ----      ----      ----       CAB    UNCH                    CAB"

Je veux diviser cette chaîne par les espaces, mais les espaces ont un nombre variable d'espaces. Existe-t-il un moyen d'utiliser la fonction strsplit() pour diviser cette chaîne et renvoyer un vecteur de 8 éléments qui a supprimé tous les écarts?

Une ligne de code est préférable.

rstringstrsplit
26
Stu

Utilisez simplement strsplit avec \\s+ à partager:

x <- "10012      ----      ----      ----      ----       CAB    UNCH       CAB"
x
# [1] "10012      ----      ----      ----      ----       CAB    UNCH       CAB"
strsplit(x, "\\s+")[[1]]
# [1] "10012" "----"  "----"  "----"  "----"  "CAB"   "UNCH"  "CAB"  
length(.Last.value)
# [1] 8

Ou, dans ce cas, scan fonctionne également:

scan(text = x, what = "")
# Read 8 items
# [1] "10012" "----"  "----"  "----"  "----"  "CAB"   "UNCH"  "CAB"
34
A5C1D2H2I1M1N2O1R2T1

la fonction strsplit elle-même fonctionne, en utilisant simplement strsplit(ss, " +"):

ss = "10012      ----      ----      ----      ----       CAB    UNCH                    CAB"

strsplit(ss, " +")
[[1]]
[1] "10012" "----"  "----"  "----"  "----"  "CAB"   "UNCH"  "CAB"

HTH

10
rnso