下面是一个方法。请注意,字段按“&”分隔,“键值”按“=”分隔。然后,我们使用strsplit
来产生每行的列表,使用两个字符进行分割。在第二行中,利用数据的规律性,使用模数2将键与值分开。这将返回一个嵌套列表,使我们可以将其提供给data.table
的rbindlist
返回一个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)
这将返回
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
列顺序颠倒,但这是很容易解决与标准索引,[
。
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
其中setDF
强制dat到一个data.frame到位(没有副本)。
数据
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"))
来源
2017-10-04 17:23:37
lmo