#' A tools4ukbb function
#' Function output: output a table with three columns: variant_ids, chromosome, index.
#'
#' @param chr_list a list of chromosomes you are selecting and how they are labeled (eg: chr_list <- c("c2", "c3") OR chr_list <- c("chr2", "chr3"))
#' @param directory the directory with your pvar, pgen, and psam files
#' @keywords get_variants
#' @export
#' @examples
#' get_variants()
get_variants <- function(chr_list, directory){
variants_df <- map(chr_list, get_chromosome_variants, directory) %>% reduce(rbind)
variants_df
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.