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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
context("re_match")
test_that("corner cases", {
res <- re_match(.text <- c("foo", "bar"), "")
expect_equal(res, df(.text = .text, .match = c("", "")))
res <- re_match(.text <- c("foo", "", "bar"), "")
expect_equal(res, df(.text = .text, .match = c("", "", "")))
res <- re_match(.text <- character(), "")
expect_equal(res, df(.text = .text, .match = character()))
res <- re_match(.text <- character(), "foo")
expect_equal(res, df(.text = .text, .match = character()))
res <- re_match(.text <- character(), "foo (g1) (g2)")
expect_equal(
res,
df(character(), character(), .text = .text, .match = character())
)
res <- re_match(.text <- character(), "foo (g1) (?<name>g2)")
expect_equal(
res,
df(character(), name = character(), .text = .text, .match = character())
)
res <- re_match(.text <- "not", "foo")
expect_equal(res, df(.text = .text, .match = NA_character_))
})
test_that("not so corner cases", {
dates <- c("2016-04-20", "1977-08-08", "not a date", "2016",
"76-03-02", "2012-06-30", "2015-01-21 19:58")
isodate <- "([0-9]{4})-([0-1][0-9])-([0-3][0-9])"
expect_equal(
as.data.frame(re_match(text = dates, pattern = isodate)),
asdf(
c("2016", "1977", NA, NA, NA, "2012", "2015"),
c("04", "08", NA, NA, NA, "06", "01"),
c("20", "08", NA, NA, NA, "30", "21"),
.text = dates,
.match = c(dates[1:2], NA, NA, NA, "2012-06-30", "2015-01-21")
)
)
isodaten <- "(?<year>[0-9]{4})-(?<month>[0-1][0-9])-(?<day>[0-3][0-9])"
expect_equal(
re_match(text = dates, pattern = isodaten),
df(
year = c("2016", "1977", NA, NA, NA, "2012", "2015"),
month = c("04", "08", NA, NA, NA, "06", "01"),
day = c("20", "08", NA, NA, NA, "30", "21"),
.text = dates,
.match = c(dates[1:2], NA, NA, NA, "2012-06-30", "2015-01-21")
)
)
})
test_that("UTF8", {
res <- re_match(.text <- "Gábor Csárdi", "Gábor")
expect_equal(res, df(.text = .text, .match = "Gábor"))
})
test_that("text is scalar & capture groups", {
res <- re_match(.text <- "foo bar", "(\\w+) (\\w+)")
expect_equal(
as.data.frame(res),
asdf("foo", "bar", .text = .text, .match = "foo bar")
)
res <- re_match(.text <- "foo bar", "(?<g1>\\w+) (?<g2>\\w+)")
expect_equal(
res,
df(g1 = "foo", g2 = "bar", .text = .text, .match = "foo bar")
)
})
|
