Add regexplain_file addin and set all as interactive

R/rstudio_addins.R

@@ -30,3 +30,16 @@ regexplain_addin <- function() {
   regex_gadget(if (length(obj) && obj != "") obj)
 
 }
+
+#' regexplain file loader
+#'
+#' @keywords internal
+regexplain_file <- function() {
+  fname <- file.choose()
+  x <- readLines(fname)
+  if (length(x) > 100) {
+    message("There were ", format(length(x), big.mark = ","), " lines in ", fname, "\nUsing only first 100.")
+    x <- x[1:100]
+  }
+  regex_gadget(x, "Regex")
+}

inst/rstudio/addins.dcf

@@ -1,9 +1,14 @@
 Name: Regexplain Selection
-Description: Regex with selected text
+Description: Build a regexp for use on selected text
 Binding: regexplain_addin
-Interactive: false
+Interactive: true
+
+Name: Regexplain File
+Description: Choose a file for which to build a regexp
+Binding: regexplain_file
+Interactive: true
 
-Name: Regex Cheetsheet
+Name: Regexplain Cheetsheet
 Description: Regex Cheatsheet Quickreference
 Binding: regexplain_cheatsheet
 Interactive: false