R/files.R

In variani/finemapr: R wrapper to fine-mappers

#--------------------------
# File names for paintor
#--------------------------

#' @rdname FinemaprPaintor
#' @export
filename_zscore.FinemaprPaintor <- function(x, locus = 1) paste0(locus, ".region") 

#' @rdname FinemaprPaintor
#' @export
filename_ld.FinemaprPaintor <- function(x, locus = 1) paste0(locus, ".region.ld")

#' @rdname FinemaprPaintor
#' @export
filename_annot.FinemaprPaintor <- function(x, locus = 1) paste0(locus, ".region.annotations")

#' @rdname FinemaprPaintor
#' @export
filename_master.FinemaprPaintor <- function(x) "region.master"

#' @rdname FinemaprPaintor
#' @export
filename_snp.FinemaprPaintor <- function(x, locus) paste0(locus, ".region.results")

#--------------------------
# File names for finemap
#--------------------------

#' @rdname FinemaprFinemap
#' @export
filename_zscore.FinemaprFinemap <- function(x, locus = 1) paste0(locus, ".region.z") 

#' @rdname FinemaprFinemap
#' @export
filename_ld.FinemaprFinemap <- function(x, locus = 1) paste0(locus, ".region.ld")

#' @rdname FinemaprFinemap
#' @export
filename_snp.FinemaprFinemap <- function(x, locus) paste0(locus, ".region.snp")

#' @rdname FinemaprFinemap
#' @export
filename_config.FinemaprFinemap <- function(x, locus) paste0(locus, ".region.config")

#' @rdname FinemaprFinemap
#' @export
filename_k.FinemaprFinemap <- function(x, locus) paste0(locus, ".region.k")

#' @rdname FinemaprFinemap
#' @export
filename_log.FinemaprFinemap <- function(x, locus) paste0(locus, ".region.log")

#' @rdname FinemaprFinemap
#' @export
filename_master.FinemaprFinemap <- function(x) "region.master"