#' @title adiCon
#' @description Function used to deparse a line of ADIF 2 called by readAdi.
#' @export
adiCon <- function(adiLine){
adiData <- str_match_all(adiLine, ">(.*?)<")
adiHeader <- str_match_all(adiLine, "<(.*?)>")
dfx <- data.frame(t(adiData[[1]][,2]))
nameCols <- adiHeader[[1]][,2]
nameCols <- gsub(":.*", "", nameCols)
names(dfx) <- nameCols[nameCols != "EOR"]
dfx
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.