From 4f6374e77a3dff3a6fa69c8c92dbc5a7301332d7 Mon Sep 17 00:00:00 2001 From: vladimirsouza Date: Tue, 9 Apr 2024 15:07:26 -0700 Subject: [PATCH] Fix bug in build_browser_hub --- R/build_browser_hub.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/build_browser_hub.R b/R/build_browser_hub.R index 42f4c02..8acfcc1 100644 --- a/R/build_browser_hub.R +++ b/R/build_browser_hub.R @@ -196,12 +196,12 @@ build_browser_hub = function(regions_bed = GAMBLR.data::grch37_ashm_regions, left_join(maf_data_i, ., join_by(Tumor_Sample_Barcode == sample_id)) dplyr::select(maf_data_i, -all_of(splitColumnName)) %>% split(maf_data_i[[splitColumnName]]) - }, maf_data, these_samples_metadata) + }, maf_data, these_samples_metadata, SIMPLIFY = FALSE) track_names = lapply(maf_data, names) these_samples_metadata = mapply(function(these_samples_metadata_i, track_names_i){ split(these_samples_metadata_i, these_samples_metadata_i[[splitColumnName]]) %>% "["(track_names_i) - }, these_samples_metadata, track_names) + }, these_samples_metadata, track_names, SIMPLIFY = FALSE) }else{ maf_data = lapply(maf_data, list) track_names = lapply(these_seq_types, function(x) list("all"))