R/list.R

In WilDoane/issuer: Issue Tracker Using the Local File System

issr_list_issues <-
  function() {
    open <- list.files(here::here("issuer", "open"), "\\.md$", full.names = TRUE)
    closed <- list.files(here::here("issuer", "closed"), "\\.md$", full.names = TRUE)

    if (length(open) + length(closed) == 0) {
      message("No issues found.")
      
      rstudioapi::sourceMarkers(
        "Issuer",
        list(),
        basePath = here::here("issuer")
      )
      
      return(invisible(NULL))
    }

    filenames <- c(open, closed)

    issues <- sapply(filenames, issr_read_utf8, n = 1)

    names(issues) <- NULL

    markers <-
      data.frame(
        type = "info",
        file = filenames,
        line = 1L,
        column = 1L,
        message = issues,
        stringsAsFactors = FALSE
      )

    rstudioapi::sourceMarkers(
      "Issuer",
      markers,
      basePath = here::here("issuer")
    )

    invisible(NULL)
  }