From 3cd5fad130af07b4f512e22dad8a08207e17142c Mon Sep 17 00:00:00 2001
From: fawda123 <mbafs2012@gmail.com>
Date: Mon, 12 Aug 2024 08:13:36 -0400
Subject: [PATCH] show_matrixplotly uses automargin = T to show complete x-axis
 text

---
 R/show_matrixplotly.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/R/show_matrixplotly.R b/R/show_matrixplotly.R
index 7551d675f..0aa799fae 100644
--- a/R/show_matrixplotly.R
+++ b/R/show_matrixplotly.R
@@ -38,12 +38,15 @@ show_matrixplotly <- function(mat, family = NA, tooltip = 'Result', width = NULL
     tickfont = list(size=14),
     overlaying = "x",
     nticks = length(collev),
-    side = "top"
+    side = "top",
+    automargin = T
   )
 
   out <- plotly::ggplotly(plo, tooltip = tooltip, width = width, height = height) %>%
     plotly::add_bars(x = collev,y = seq(1, length(collev)), xaxis = 'x2', inherit = F, showlegend = F) %>%
-    plotly::layout(xaxis2 = ax)
+    plotly::layout(
+      xaxis2 = ax
+      )
 
   # plotly output
   out <- out %>%