fixed null plotly annotations bug

biospi · Feb 17, 2022 · 309938d · 309938d
1 parent 03d0a57
commit 309938d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/seaMass.R b/R/seaMass.R
@@ -857,7 +857,8 @@ setMethod("plot_robust_pca", "seaMass", function(
   }
 
   suppressWarnings(fig <- plotly::ggplotly(g, tooltip = c("text", "x", "y"), dynamicTicks = T, width = width, height = height))
-  for (i in 1:length(fig$x$layout$annotations)) fig$x$layout$annotations[[i]]$y <- fig$x$layout$annotations[[i]]$y - 0.05 # another grim plotly hack
+  if (!is.null(fig$x$layout$annotations))
+    for (i in 1:length(fig$x$layout$annotations)) fig$x$layout$annotations[[i]]$y <- fig$x$layout$annotations[[i]]$y - 0.05 # another grim plotly hack
 
   return(fig)
 })