R/tag-export-pattern.r

#' @tagUsage @@exportPattern pattern
#' @rdname tag-export
setClass("ExportPatternTag", contains = "Tag")
setMethod("value<-", "ExportPatternTag", function(tag, value) {
  tag@text <- unlist(str_split(value, "[[:space:]]+"))
  tag
})
setMethod("writeNamespace", "ExportPatternTag", function(object) {
  ns_each("exportPattern", object@text)
})
hadley/roxygen3 documentation built on May 17, 2019, 12:16 p.m.