Fix missing tile labels in heatmap vignette

jayhesselberth · claude · jayhesselberth · commit 79e9e5ad0943 · 2026-02-27T17:20:51.000-07:00
Strip `host-` prefix from FASTA sequence names so the `left_join()` on
`ref` matches the prefix-stripped names in `heatmap_data`.

Co-Authored-By: Claude Opus 4.6 &lt;noreply@anthropic.com&gt;
diff --git a/vignettes/articles/heatmap.Rmd b/vignettes/articles/heatmap.Rmd
@@ -255,7 +255,7 @@ black and white for contrast.
 # Add the reference base at each position for labeling
 ref_seqs <- Biostrings::readDNAStringSet(trna_fasta)
 ref_bases <- tibble::tibble(
-  ref = rep(names(ref_seqs), Biostrings::width(ref_seqs)),
+  ref = sub("^host-", "", rep(names(ref_seqs), Biostrings::width(ref_seqs))),
   pos = unlist(lapply(Biostrings::width(ref_seqs), seq_len)),
   ref_base = strsplit(as.character(unlist(ref_seqs)), "") |> unlist()
 )

Original file line number	Diff line number	Diff line change
`@@ -255,7 +255,7 @@ black and white for contrast.`
`255`	`255`	`# Add the reference base at each position for labeling`
`256`	`256`	`ref_seqs <- Biostrings::readDNAStringSet(trna_fasta)`
`257`	`257`	`ref_bases <- tibble::tibble(`
`258`		`- ref = rep(names(ref_seqs), Biostrings::width(ref_seqs)),`
	`258`	`+ ref = sub("^host-", "", rep(names(ref_seqs), Biostrings::width(ref_seqs))),`
`259`	`259`	`pos = unlist(lapply(Biostrings::width(ref_seqs), seq_len)),`
`260`	`260`	`ref_base = strsplit(as.character(unlist(ref_seqs)), "") \|> unlist()`
`261`	`261`	`)`