inst/shinyApp/server.R

In findInFiles: Find Pattern in Files

shinyServer(function(input, output, session){

  iv <- InputValidator$new()
  iv$add_rule(
    "ext",
    sv_regex("^[a-zA-Z0-9\\+,]+$", "Only alphanumeric or 'c++'.")
  )
  iv$add_rule("pattern", sv_required())
  iv$add_rule("depth", isPositiveIntegerOrNA)
  iv$add_rule("maxCount", isPositiveIntegerOrNA)
  iv$enable()

  shinyDirChoose(
    input, "folder", roots = roots
  )

  output[["wd"]] <- renderText({
    path <- parseDirPath(roots, input[["folder"]])
    if(length(path) == 0L){
      setwd(roots[1L])
      roots[1L]
    }else{
      setwd(path)
      path
    }
  })

  observeEvent(input[["btnwd"]], {
    msg <- tryCatch({
      tree <- capture.output(dir_tree(recurse = 1, type = "directory"))
      tags$pre(paste0(tree, collapse = "\n"))
    }, error = function(e) {
      tags$span(
        "Failed to scan the current folder.",
        style = "color: red;"
      )
    })
    showModal(
      modalDialog(
        msg,
        title = "Current folder (showing two levels)"
      )
    )
  })

  Tabsets <- reactiveVal(character(0L))
  Editors <- reactiveVal(character(0L))

  Depth <- reactive({
    if(!is.na(input[["depth"]])) {
      input[["depth"]]
    }
  })

  infiniteDepth <- reactive({
    if(is.na(input[["depth"]])) TRUE
  })

  observeEvent(infiniteDepth(), {
    show_toast(
      title = "Unlimited depth",
      text = "Be sure that the current folder is not too deep",
      type = "warning",
      timer = 6000,
      position = "bottom-start"
    )
  }, once = TRUE)

  maxCount <- reactive({
    if(isTRUE(input[["maxCount"]] > 0)) {
      input[["maxCount"]]
    }
  })

  observeEvent(input[["closetab"]], {
    index <- match(input[["closetab"]], names(Tabsets()))
    Tabsets(Tabsets()[-index])
    if(length(Tabsets()) == 0L) {
      removeUI("#tabset-tabbable")
    }else{
      removeVerticalTab("tabset", index)
    }
  })

  showToast <- TRUE

  observeEvent(input[["filewithline"]], {
    notabset <- length(Tabsets()) == 0L
    file <- input[["filewithline"]][["file"]]
    line <- input[["filewithline"]][["line"]]
    updated <- FALSE
    if(!is.element(file, Tabsets())){
      outputId <- paste0("editor", length(Editors()) + 1L)
      Editors(c(Editors(), outputId))
      names(file) <- outputId
      Tabsets(c(Tabsets(), file))
      ext <- tolower(tools::file_ext(file))
      acemode <- switch(
        ext,
        c = "c_cpp",
        cpp = "c_cpp",
        "c++" = "c_cpp",
        dockerfile = "dockerfile",
        frag = "glsl",
        h = "c_cpp",
        hpp = "c_cpp",
        css = "css",
        f = "fortran",
        f90 = "fortran",
        gitignore = "gitignore",
        hs = "haskell",
        html = "html",
        java = "java",
        js = "javascript",
        jsx = "jsx",
        json = "json",
        jl = "julia",
        tex = "latex",
        md = "markdown",
        map = "json",
        markdown = "markdown",
        rmd = "markdown",
        mysql = "mysql",
        ml = "ocaml",
        perl = "perl",
        pl = "perl",
        php = "php",
        py = "python",
        r = "r",
        rd = "rdoc",
        rhtml = "rhtml",
        rnw = "latex",
        ru = "ruby",
        rs = "rust",
        scala = "scala",
        scss = "scss",
        sh = "sh",
        sql = "sql",
        svg = "svg",
        txt = "text",
        ts = "typescript",
        vb = "vbscript",
        xml = "xml",
        yaml = "yaml",
        yml = "yaml"
      )
      content <- paste0(readLines(file), collapse = "\n")
      tab <- verticalTabPanel(
        title = file,
        aceEditor(
          outputId = outputId,
          value = content,
          mode = ifelse(is.null(acemode), "plain_text", acemode),
          theme = "cobalt",
          tabSize = 2,
          height = "40vh"
        ),
        box_height = NULL
      )
      if(notabset){
        tabset <- verticalTabsetPanel(tab, id = "tabset")
        insertUI(
          "#editors",
          where = "afterBegin",
          ui = tabset
        )
      }else{
        appendVerticalTab(
          "tabset",
          tab
        )
        updateVerticalTabsetPanel(
          session,
          "tabset",
          selected = file[[1L]]
        )
      }
      session$sendCustomMessage("closeButton", outputId)
      updated <- TRUE
    }
    index <- match(file, Tabsets())
    editor <- names(Tabsets())[index]
    btnid <- paste0("btn_", editor)
    if(is.null(input[[btnid]])){
      insertUI(
        sprintf("#%s .ace_scroller", editor),
        "beforeEnd",
        actionButton(
          btnid, "Save", icon = icon("save"),
          class = "btn-success",
          style = "position: absolute; bottom: 2px; right: 2px;",
          onmousedown = "event.stopPropagation();",
          onclick = sprintf(
            'Save(event, "%s", "%s");', URLencode(content), basename(file)
          )
        )
      )
    }
    if(!updated){
      updateVerticalTabsetPanel(
        session,
        "tabset",
        selected = file
      )
    }
    session$sendCustomMessage("goto", list("editor" = editor, "line" = line))
    if(showToast){
      show_toast(
        "Do you know?",
        "You can resize the editors.",
        type = "info",
        timer = 5000,
        position = "top-end"
      )
      showToast <<- FALSE
    }
  })

  Run <- eventReactive(input[["run"]], {
    iv$is_valid()
  })

  output[["results"]] <- renderFIF({
    req(Run())
    extensions <- strsplit(isolate(input[["ext"]]), ",", fixed = TRUE)[[1L]]
    extensions <- Filter(function(x) nchar(x) > 0L, extensions)
    patternType <- isolate(input[["patternType"]])
    fifWidget <- findInFiles(
      extensions = extensions,
      pattern    = isolate(input[["pattern"]]),
      depth      = isolate(Depth()),
      maxCount   = isolate(maxCount()),
      wholeWord  = isolate(input[["wholeWord"]]),
      ignoreCase = isolate(input[["ignoreCase"]]),
      extended   = patternType == "extended",
      fixed      = patternType == "fixed",
      perl       = patternType == "perl"
    )
    if(attr(fifWidget, "maxCountExceeded")) {
      show_toast(
        title = "Reached maximum",
        text = paste0(
          "Maximum number of results has been exceeded ",
          sprintf(
            "(there are %d results).", attr(fifWidget, "numberOfResults")
          )
        ),
        type = "warning",
        timer = 7000,
        position = "top-end"
      )
    }
    fifWidget
  })

})