Parse PIP API endpoints documentation to text file

parse_endpoints.R

library(data.table)

url <- "https://raw.githubusercontent.com/PIP-Technical-Team/pipapi/master/inst/plumber/v1/endpoints.R"

lns <- readLines(con = url) |> 
  {\(.) .[grep("\\@(get|param)", .)]}()




dt <- data.table(lines = lns)

dt[grep("\\@get", lines), 
   endpoint := gsub("(.+)/([^/]+)$", "\\2", lines)
   ][,
     # fill in NAs
     endpoint := vctrs::vec_fill_missing(endpoint)
     ][
    # get parameters
      grep("\\@param", lines),
       param := gsub("(.+param )(.+):(.*)", "\\2", lines)
      ][
        # get type
        grep("\\@param", lines), 
        type := gsub("(.+):\\[(.*)\\](.+)", "\\2", lines)]

# get onl y params rows
dl <- dt[!grepl("\\@get", lines)
         ][, 
           lines := NULL] |> 
  split(by = "endpoint", keep.by = FALSE)


in_yml <- ymlthis::as_yml(dl)
in_json <- jsonlite::toJSON(dl, pretty = TRUE)