add str_year

rpkgs · Jul 27, 2021 · 939c0c6 · 939c0c6
1 parent 59f128c
commit 939c0c6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -99,6 +99,7 @@ export(smerge)
 export(split_data)
 export(stat_quantile2)
 export(stat_sd)
+export(str_year)
 export(subl)
 export(tabular)
 export(transpose)

diff --git a/R/tools.R b/R/tools.R
@@ -60,6 +60,9 @@ file_size <- function(file) {
     utils:::format.object_size(file.size(file), "auto")
 }
 
+#' @export
+str_year <- function(x) stringr::str_extract(basename(x), "\\d{4}")
+
 #' ifelse2
 #'
 #' ternary operator just like java `test ? yes : no`