tests/testthat/helper-functions.r

In bioDS/beter: BEAST Templates in R

#' Get alignment id from XML
get_alignment_id = function(xml){
    if(length(xml) > 1)
        xml = grep("data id=", xml, value=TRUE)[1]

    sub("<data id=\"(.*)\" dataType.*", "\\1", xml)
    }


#' Write text to a temporary file
write_to_temp = function(text){
    tempfile = tempfile()
    writeLines(text, tempfile)
    tempfile
    }