nf-core_modules/modules/imputeme/vcftoprs/main.nf
Lasse Folkersen e560fbbc3e
Imputeme (#882)
* first commit with imputeme as a module. Extensive re-write of imputeme-code, resulting in release v1.0.7 that is runnable in the next-flow framework.


Co-authored-by: EC2 Default User <ec2-user@ip-172-31-21-198.us-west-2.compute.internal>
Co-authored-by: Harshil Patel <drpatelh@users.noreply.github.com>
Co-authored-by: Pontus Freyhult <pontus_github@soua.net>
2021-11-05 10:25:54 +01:00

60 lines
2.1 KiB
Text

// Import generic module functions
include { initOptions; saveFiles; getSoftwareName } from './functions'
params.options = [:]
options = initOptions(params.options)
process IMPUTEME_VCFTOPRS {
tag "$meta.id"
label 'process_low'
publishDir "${params.outdir}",
mode: params.publish_dir_mode,
saveAs: { filename -> saveFiles(filename:filename, options:params.options, publish_dir:getSoftwareName(task.process), meta:meta, publish_by_meta:['id']) }
conda (params.enable_conda ? "YOUR-TOOL-HERE" : null)
if (workflow.containerEngine == 'singularity' && !params.singularity_pull_docker_container) {
container "https://containers.biocontainers.pro/s3/SingImgsRepo/imputeme/vv1.0.7_cv1/imputeme_vv1.0.7_cv1.img"
} else {
container "biocontainers/imputeme:vv1.0.7_cv1"
}
input:
tuple val(meta), path(vcf)
output:
tuple val(meta), path("*.json"), emit: json
path "versions.yml" , emit: versions
script:
def prefix = options.suffix ? "${meta.id}${options.suffix}" : "${meta.id}"
"""
#!/usr/bin/env Rscript
#Set configuration - either from options.args or from defaults
source("/imputeme/code/impute-me/functions.R")
if(file.exists('$options.args')){
set_conf("set_from_file",'$options.args')
}else{
set_conf("set_from_file", "/imputeme/code/impute-me/template/nextflow_default_configuration.R")
}
#main run
return_message <- prepare_individual_genome('$vcf',overrule_vcf_checks=T)
uniqueID <- sub(' </b>.+\$','',sub('^.+this run is <b> ','',return_message))
convert_vcfs_to_simple_format(uniqueID=uniqueID)
crawl_for_snps_to_analyze(uniqueIDs=uniqueID)
run_export_script(uniqueIDs=uniqueID)
file.copy(paste0("./",uniqueID,"/",uniqueID,"_data.json"),"output.json")
#version export. Have to hardcode process name and software name because
#won't run inside an R-block
version_file_path="versions.yml"
f <- file(version_file_path,"w")
writeLines("IMPUTEME_VCFTOPRS:", f)
writeLines(paste0(" imputeme: ", sub("^v","",get_conf("version"))),f)
close(f)
"""
}