R/get_issue_tbl.R

In thisisnic/noticeboard:

#' Get Issue Table
#'
#' @param issues Nested list of XML nodesets
#'
#' @import dplyr
#' 
#' @return tibble of issues
get_issue_tbl <- function(issues){
  
  issues %>%
    mutate(url = construct_issue_url(url))
  
 
}

#' Contrsuct the Issue URL from partial URL
#' 
#' @param partial_url Partial URL
construct_issue_url <- function(partial_url){
  full_url <- paste("https://github.com", original_url, sep = "")
  paste("<a href =\"", full_url, "\"/ target=\"_blank\">", full_url, "</a>", sep = "")
}