Fixed a couple minor bugs.

william-denault · Apr 30, 2024 · b5ea9c3 · b5ea9c3
1 parent ece4660
commit b5ea9c3
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: flashier
 Type: Package
 Date: 2024-04-30
 Title: Empirical Bayes Matrix Factorization
-Version: 1.0.42
+Version: 1.0.43
 Authors@R: c(person("Jason", "Willwerscheid", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Peter", "Carbonetto", role = "aut"),

diff --git a/R/data.R b/R/data.R
@@ -70,5 +70,5 @@ NULL
 #'
 #' @examples
 #' fl <- flash(gtex, greedy_Kmax = 4)
-#' plot(fl, incl_scree = FALSE, pm_colors = gtex_colors)
+#' plot(fl, pm_colors = gtex_colors)
 NULL
diff --git a/R/flash_plots.R b/R/flash_plots.R
@@ -766,7 +766,8 @@ flash_plot_heatmap <- function(fl,
   struct_ticks <- struct_p$plot_env$ticks + 0.5
 
   # Topics get reversed by plot_structure; re-reverse them:
-  struct_df$topic <- factor(struct_df$topic, level = rev(levels(struct_df$topic)))
+  struct_df$topic <- factor(struct_df$topic,
+                            levels = rev(levels(struct_df$topic)))
 
   p <- ggplot(struct_df, aes(x = topic, y = sample, fill = prop)) +
     geom_tile(width = 0.8, height = 1) +

diff --git a/man/gtex_colors.Rd b/man/gtex_colors.Rd