Merge branch 'develop' into 473-tada_twocharacteristicscatterplot-leg…

…end-should-not-include-fraction-andor-speciation-if-they-are-na

R/DepthProfile.R

@@ -1032,7 +1032,6 @@ TADA_DepthProfilePlot <- function(.data,
         " and ",
         param3$TADA.CharacteristicName[1],
         " for ",
-        # figure out addition of weird \n in name
         plot.data$MonitoringLocationName[1],
         " on ",
         format(as.Date(plot.data$ActivityStartDate[1]), "%B %d, %Y")
@@ -1075,8 +1074,10 @@ TADA_DepthProfilePlot <- function(.data,
 
   # figure margin
   mrg <- list(
-    l = 50, r = 50,
-    b = 100, t = 75,
+    l = 50, 
+    r = 50,
+    b = 100, 
+    t = (25 + (ceiling(nchar(title)/50)) * 25), # top margin is variable based on number of lines in title
     pad = 0
   )
 
@@ -1109,7 +1110,10 @@ TADA_DepthProfilePlot <- function(.data,
         autorange = "reversed"
       ),
       hoverlabel = list(bgcolor = "white"),
-      title = title,
+      title = list(
+        text = title,
+        xref = "paper",
+        x = 0.5),
       plot_bgcolor = "#e5ecf6",
       margin = mrg,
       legend = list(
@@ -1354,8 +1358,10 @@ TADA_DepthProfilePlot <- function(.data,
     # adjust margins of plot
     scatterplot <- scatterplot %>%
       plotly::layout(margin = list(
-        l = 50, r = 100,
-        b = 100, t = 75,
+        l = 50, 
+        r = 100,
+        b = 100, 
+        t = (25 + (ceiling(nchar(title)/50)) * 25),
         pad = 0
       ))