est une méthode ici. Notez que les champs sont divisés par "&" et que la "valeur-clé" est divisée par "=". Ensuite, nous utilisons strsplit
pour produire une liste de chaque ligne, en utilisant les deux caractères à diviser. Dans la deuxième ligne, exploitez la régularité des données, en utilisant le module 2 pour séparer les clés des valeurs. Ceci retourne une liste imbriquée afin que nous puissions nourrir à l » rbindlist
data.table
pour retourner un data.table
# get list of key-values by line
tmp <- strsplit(urlDat, "&|=")
# use modulus to select keys and values
tmp <- lapply(tmp, function(x) setNames(as.list(x[seq_along(x) %% 2 == 0L]),
x[seq_along(x) %% 2 == 1L]))
library(data.table)
dat <- rbindlist(tmp, fill=TRUE, use.names=TRUE)
ce retourne
dat
unique1 same date time unique2 unique3
1: blub aaaa-aaaa-aaaa 01.01.2017 12:30:00 NA NA
2: NA bbbb-bbbb 02.01.2017 12:30:00 blub NA
3: NA cccc 03.01.2017 12:35:00 NA blub
Les colonnes sont hors d'usage, mais cela est assez facile de fixer avec l'indexation standard, [
.
setDF(dat)[, c("date", "same", "time", "unique1", "unique2", "unique3")]
date same time unique1 unique2 unique3
1 01.01.2017 aaaa-aaaa-aaaa 12:30:00 blub <NA> <NA>
2 02.01.2017 bbbb-bbbb 12:30:00 <NA> blub <NA>
3 03.01.2017 cccc 12:35:00 <NA> <NA> blub
où setDF
dans un dat contraint data.frame en place (pas de copies).
données
urlDat <- readLines(textConnection(
"unique1=blub&same=aaaa-aaaa-aaaa&date=01.01.2017&time=12:30:00
date=02.01.2017&unique2=blub&time=12:30:00&same=bbbb-bbbb
same=cccc&time=12:35:00&unique3=blub&date=03.01.2017"))