as character sample from vcf

gagneurlab · Jul 28, 2022 · f1684b6 · f1684b6
1 parent b98e59e
commit f1684b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/drop/modules/mae-pipeline/QC/create_matrix_dna_rna_cor.R b/drop/modules/mae-pipeline/QC/create_matrix_dna_rna_cor.R
@@ -46,7 +46,7 @@ N <- length(vcf_files)
 lp <- bplapply(1:N, function(i){
 
   # Read sample vcf file
-  sample <- wes_samples[i]
+  sample <- wes_samples[i] %>% as.character()
   param <-  ScanVcfParam(fixed=NA, info='NT', geno='GT', samples=sample, trimEmpty=TRUE) 
   vcf_sample <- readVcf(vcf_files[i], param = param, row.names = FALSE)
   # Get GRanges and add Genotype