distribute interface file

Author: snowmerak

R/interface.R renamed to R/classes.R

@@ -14,13 +14,4 @@ text <- function(x) {
 
 regex <- function(x) {
     new("regex", value = x)
-}
-
-str_count <- function(l, pattern) {
-    switch(
-        class(pattern),
-        text = str_text_count(l, pattern@value),
-        regex = str_regex_count(l, pattern@value),
-        character = str_regex_count(l, pattern)
-    )
 }