define [[.stringr_pattern

closes #529

copy of [.stringr_pattern with simple test added for both

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method("[",stringr_pattern)
 S3method("[",stringr_view)
+S3method("[[",stringr_pattern)
 S3method(print,stringr_view)
 S3method(type,character)
 S3method(type,default)

R/modifiers.R

@@ -227,6 +227,15 @@ type.default <- function(x, error_call = caller_env()) {
   )
 }
 
+#' @export
+`[[.stringr_pattern` <- function(x, i) {
+  structure(
+    NextMethod(),
+    options = attr(x, "options"),
+    class = class(x)
+  )
+}
+
 as_bare_character <- function(x, call = caller_env()) {
   if (is.character(x) && !is.object(x)) {
     # All OK!

tests/testthat/test-modifiers.R

@@ -36,3 +36,11 @@ test_that("subsetting preserves class and options", {
   x <- regex("a", multiline = TRUE)
   expect_equal(x[], x)
 })
+
+test_that("stringr_pattern methods"){
+
+  ex <- coll(c("foo", "bar"))
+  expect_true(inherits(ex[1], "stringr_pattern"))
+  expect_true(inherits(ex[[1]], "stringr_pattern"))
+
+}