# Consistent means of making split path
make_split_path <- function(output_dir,
qtl_id,
loc) {
split_path <- file.path(
output_dir,
qtl_id,
paste0(loc, "__", qtl_id, ".tsv.gz")
)
names(split_path) <- paste(loc, qtl_id, sep = "__")
dir.create(dirname(split_path), showWarnings = FALSE, recursive = TRUE)
return(split_path)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.