site1 <- "https://raw.githubusercontent.com/mikesovic/MixviR/main/raw_files/GCF_ASM985889v3.fa"
site2 <- "https://raw.githubusercontent.com/mikesovic/MixviR/main/raw_files/sars_cov2_genes.bed"
if (httr::http_error(site1) | httr::http_error(site2)) {
message("No internet connection or data source broken.")
return(NULL)
} else {
create_ref(
genome = site1,
feature.bed = site2,
code.num = "1")
}
Run the code above in your browser using DataLab