abort if heatmap has order

Yunuuuu · Jul 17, 2024 · c012eea · c012eea
1 parent 17256ff
commit c012eea
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/htanno-group.R b/R/htanno-group.R
@@ -38,11 +38,11 @@ HtannoGroup <- ggplot2::ggproto("HtannoGroup", HtannoProto,
             ), call = self$call)
         }
         if (!is.null(index)) {
-            cli::cli_warn(sprintf(
+            cli::cli_abort(sprintf(
                 "{.fn {snake_class(self)}} will disrupt the previously %s %s",
                 "established order of the heatmap",
                 to_matrix_axis(position)
-            ))
+            ), call = self$call)
         }
         list(group, index)
     }

diff --git a/R/htanno-kmeans.R b/R/htanno-kmeans.R
@@ -48,11 +48,11 @@ HtannKmeans <- ggplot2::ggproto("HtannKmeans", HtannoProto,
             ), call = self$call)
         }
         if (!is.null(index)) {
-            cli::cli_warn(sprintf(
+            cli::cli_abort(sprintf(
                 "{.fn {snake_class(self)}} will disrupt the previously %s %s",
                 "established order of the heatmap",
                 to_matrix_axis(position)
-            ))
+            ), call = self$call)
         }
         list(statistics$cluster, index)
     }