#' 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 = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.