diff --git a/R/htanno-group.R b/R/htanno-group.R index fbff0f00..38743ae8 100644 --- 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 index 55f20cb7..e353fd2e 100644 --- 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) }