regexplain/R/addins.R

#' RegExplain Addin
#'
#' Addin for regexplain. If the selection does not contain multiple lines, the
#' addin tries to evaluate the selection and coerce the result to a character
#' string. Only unique lines are passed to the gadget to maximize screen space.
#' The max number of lines returned is set by the option
#' `regexplain.addin.max_lines`, with a default value of 100 lines.
#' If evaluating the selection does not produce a character vector without
#' errors, the original selection is returned.
#'
#' @keywords internal
regexplain_addin <- function() {
  # Get the document context.
  context <- rstudioapi::getActiveDocumentContext()

  # Get context text
  ctx_text <- context$selection[[1]]$text

  max_lines <- getOption("rexeplain.addin.max_lines", 100)

  # If it is one line and evaluates to something, use that
  # Otherwise treat as text
  obj <- tryCatch(
    {
      if (grepl("\n", ctx_text)) {
        ctx_text[1:min(length(ctx_text), max_lines)]
      } else {
        x <- eval(parse(text = ctx_text))
        if (inherits(x, "list")) x <- unlist(x)
        x <- as.character(x)
        if (length(x) == 1 && grepl("\n", x)) {
          x <- strsplit(x, "\n")[[1]]
        }
        x <- unique(x)
        if (length(x) > max_lines) {
          message(
            ctx_text,
            " gave ",
            length(x),
            " lines, limiting to first ",
            max_lines,
            " unique lines. Set ",
            "options('regexplain.addin.max_lines') to a higher value to ",
            "increase the number of lines."
          )
          x <- unique(x)
          x[1:min(length(x), max_lines)]
        } else {
          x
        }
      }
    },
    error = function(e) {
      as.character(ctx_text[1:min(length(ctx_text), max_lines)])
    }
  )

  regexplain_gadget(if (length(obj) && obj != "") obj)
}

#' @describeIn regexplain_gadget Opens file chooser to pick file, reads lines,
#'   returns first `regexplain.addin.max_lines` (default 100). Used in the
#'   "Regexplain File" [regexplain_addin].
#' @export
regexplain_file <- function(pattern = NULL, start_page = "RegEx") {
  fname <- file.choose()
  x <- readLines(fname)
  max_lines <- getOption("rexeplain.addin.max_lines", 100)
  if (length(x) > max_lines) {
    message("There were ", format(length(x), big.mark = ","), " lines in ",
            fname, "\nUsing only first ", max_lines, ".\n",
            "Set options('regexplain.addin.max_lines') to a higher value to ",
            "increase the number of lines.")
    x <- x[1:max_lines]
  }
  regexplain_gadget(text = x, pattern = pattern, start_page = start_page)
}