Resolve #45

R/export.R

@@ -112,7 +112,7 @@ exportExtractElement <- function(where) {
     name <- if (name == "") element else name
     # we need to make sure that special names, e.g. %*%, ==.foo and names with
     # whitespaces are parsed correctly
-    regexp <- "^%.*%$|^[[:alnum:][:space:]]+$|^[[:punct:]]{2,}.*$"
+    regexp <- "^%.*%$|^[[:alnum:][:space:]]+$|^[[:punct:]]{2,}.*$|^[[:punct:]]$" 
     element <- if (grepl(regexp, element)) paste0("`", element, "`") else element # Exclude Linting
     object <- tryCatch(
       eval(parse(text = element), where, baseenv()),

tests/testthat/test-export.R

@@ -16,6 +16,14 @@ test_that("Exports of special names #37", {
   testthat::expect_true(m$`%add%`(1, 2) == 3)
 })
 
+test_that("Exports of special names #45", {
+  m <- module({
+    "[" <- `[`
+  })
+  testthat::expect_true(is.primitive(m$"["))
+
+})
+
 test_that("Exports of names with whitespace #39", {
   m <- module({
     "my fun" <- function(x) x # Exclude Linting