R/update_helper.R

In ComunidadBioInfo/easyweb: A fast and easy way to build your own website

update_helper <- function(web_tag, rmd_tag, web_tab, path, bulleted = FALSE, header = '') {
    if(web_tag %in% web_tab$tag) {
        update_text <- paste0(if(bulleted) '* ', web_tab$value[web_tab$tag == web_tag], collapse = '\n')
        update_text <- paste0(header, update_text)
    } else {
        update_text <- ''
    }
    update_template(path, rmd_tag, update_text)
}