diff --git a/DESCRIPTION b/DESCRIPTION index 0ba379a5..25d7dd20 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -281,6 +281,7 @@ Collate: 'uu_zzz.r' 'z_animint.R' 'z_animintHelpers.R' + 'z_multiline.R' 'z_facets.R' 'z_geoms.R' 'z_helperFunctions.R' diff --git a/NEWS.md b/NEWS.md index f1082b8f..7b48e388 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,8 @@ +# Changes in version 2025.11.7 (PR#261) + +- Fixed multiline text spacing: plot titles no longer overlap with plot area, and X/Y axis label spacing is now consistent. +- Fixed axis titles to scale correctly with `theme(text=element_text(size=X))` (issue #64). + # Changes in version 2025.10.31 (PR#271) - `geom_point()` now warns when shape parameter is set to a value other than 21, since animint2 web rendering only supports shape=21 for proper display of both color and fill aesthetics. @@ -14,6 +19,10 @@ - `geom_text(vjust!=0)` warning mentions vjust support in `geom_label_aligned()`. +# Changes in version 2025.10.21 (PR#221) + +- Multi-line text support: `\n` now works in plot titles, axis titles, legend titles, and `geom_text()` labels. Created `R/z_multiline.R` with helper to convert `\n` to `
` during R compilation. JavaScript renderer converts `
` to SVG `` elements for proper multi-line display. + # Changes in version 2025.10.17 (PR#255) - `getCommonChunk()` uses default group=1 (previously 1:N which was slower). @@ -239,7 +248,7 @@ # Changes in 2022.5.25 -- Add ability to rotate geom_text labels, following ggplot2's semantics of rotation direction. +- Add ability to rotate geom_text labels, following ggplot2\'s semantics of rotation direction. # Changes in 2022.5.24 @@ -304,4 +313,4 @@ # Changes in 2017.08.24 -- DSL: clickSelects/showSelected are now specified as parameters rather than aesthetics. +- DSL: clickSelects/showSelected are now specified as parameters rather than aesthetics. \ No newline at end of file diff --git a/R/z_animint.R b/R/z_animint.R index 3beb7dd7..1a13416d 100644 --- a/R/z_animint.R +++ b/R/z_animint.R @@ -130,7 +130,7 @@ parsePlot <- function(meta, plot, plot.name){ for (xy in c("x", "y")) { s <- function(tmp) sprintf(tmp, xy) # one axis name per plot (ie, a xtitle/ytitle is shared across panels) - plot.info[[s("%stitle")]] <- if(is.blank(s("axis.title.%s"))){ + axis_title_raw <- if(is.blank(s("axis.title.%s"))){ "" } else { scale.i <- which(plot$scales$find(xy)) @@ -143,6 +143,10 @@ parsePlot <- function(meta, plot, plot.name){ lab.or.null } } + # Convert newlines to
for multi-line axis titles (Issue #221) + plot.info[[s("%stitle")]] <- convertNewlinesToBreaks(axis_title_raw) + ## axis title size. + plot.info[[s("%stitle_size")]] <- getTextSize(s("axis.title.%s"), theme.pars) ## panel text size. plot.info[[s("strip_text_%ssize")]] <- getTextSize( s("strip.text.%s"), theme.pars) @@ -187,12 +191,13 @@ parsePlot <- function(meta, plot, plot.name){ # grab the unique axis labels (makes rendering simpler) plot.info <- getUniqueAxisLabels(plot.info) - # grab plot title if present - plot.info$title <- if(is(theme.pars$plot.title, "blank")){ + # grab plot title if present and convert newlines (Issue #221) + plot_title_raw <- if(is(theme.pars$plot.title, "blank")){ "" }else{ plot$labels$title } + plot.info$title <- convertNewlinesToBreaks(plot_title_raw) plot.info$title_size <- getTextSize("plot.title", theme.pars) ## Set plot width and height from animint.* options if they are @@ -744,7 +749,6 @@ getLegendList <- function(plistextra){ gdefs <- guides_merge(gdefs) gdefs <- guides_geom(gdefs, layers, default_mapping) } else (zeroGrob()) - names(gdefs) <- sapply(gdefs, function(i) i$title) ## adding the variable used to each LegendList for(leg in seq_along(gdefs)) { @@ -824,6 +828,9 @@ getLegendList <- function(plistextra){ } } legend.list <- lapply(gdefs, getLegend) + # Use the 'class' field from getLegend output for legend key names (Issue #221) + # This ensures JSON keys don't contain newlines or other special characters + names(legend.list) <- sapply(legend.list, function(i) i$class) ## Add a flag to specify whether or not there is both a color and a ## fill legend to display. If so, we need to draw the interior of ## the points in the color legend as the same color. diff --git a/R/z_animintHelpers.R b/R/z_animintHelpers.R index f3686454..3a09f5a7 100644 --- a/R/z_animintHelpers.R +++ b/R/z_animintHelpers.R @@ -686,6 +686,8 @@ getLegend <- function(mb){ names(data) <- paste0(geom, names(data))# aesthetics by geom names(data) <- gsub(paste0(geom, "."), "", names(data), fixed=TRUE) # label isn't geom-specific data$label <- paste(data$label) # otherwise it is AsIs. + # Convert newlines to
for multi-line legend labels (Issue #221) + data$label <- convertNewlinesToBreaks(data$label) data } dataframes <- mapply(function(i, j) cleanData(i$data, mb$key, j, i$params), @@ -710,10 +712,16 @@ getLegend <- function(mb){ if(guidetype=="none"){ NULL }else{ + # Convert newlines to
for multi-line legend title (Issue #221) + legend_title <- convertNewlinesToBreaks(mb$title) + # For the 'class' field (used as JSON key), sanitize newlines to spaces + # to avoid JSON parsing issues with control characters (Issue #221) + safe_title <- gsub("\n", " ", mb$title, fixed = TRUE) + legend_class <- if(mb$is.discrete) mb$selector else safe_title list(guide = guidetype, geoms = unlist(mb$geom.legend.list), - title = mb$title, - class = if(mb$is.discrete)mb$selector else mb$title, + title = legend_title, + class = legend_class, selector = mb$selector, is_discrete= mb$is.discrete, legend_type = mb$legend_type, @@ -897,6 +905,10 @@ split_recursive <- function(x, vars){ ##' @author Toby Dylan Hocking saveChunks <- function(x, meta){ if(is.data.frame(x)){ + # Convert newlines to
in label column for multi-line text (Issue #221) + if("label" %in% names(x)){ + x$label <- convertNewlinesToBreaks(x$label) + } this.i <- meta$chunk.i csv.name <- sprintf("%s_chunk%d.tsv", meta$g$classed, this.i) ## Some geoms should be split into separate groups if there are NAs. diff --git a/R/z_multiline.R b/R/z_multiline.R new file mode 100644 index 00000000..544f4503 --- /dev/null +++ b/R/z_multiline.R @@ -0,0 +1,4 @@ +convertNewlinesToBreaks <- function(text) { + gsub("\n", "
", text, fixed = TRUE) +} + diff --git a/inst/htmljs/animint.js b/inst/htmljs/animint.js index 02c8d760..a90534f7 100644 --- a/inst/htmljs/animint.js +++ b/inst/htmljs/animint.js @@ -125,24 +125,54 @@ var animint = function (to_select, json_file) { var measureText = function(pText, pFontSize, pAngle, pStyle) { if (pText === undefined || pText === null || pText.length === 0) return {height: 0, width: 0}; if (pAngle === null || isNaN(pAngle)) pAngle = 0; - + + // Create temporary container to measure text var container = element.append('svg'); - // do we need to set the class so that styling is applied? - //.attr('class', classname); - - container.append('text') - .attr({x: -1000, y: -1000}) + var textElement = container.append('text') .attr("transform", "rotate(" + pAngle + ")") .attr("style", pStyle) - .attr("font-size", pFontSize) - .text(pText); - + .attr("font-size", pFontSize); + + // Check if text contains
tags (multi-line) + var textStr = String(pText || ''); + var lines = textStr.split('
'); + + // Always use setMultilineText for consistent rendering + setMultilineText(textElement, pText); + + // Get bounding box after rendering var bbox = container.node().getBBox(); + + // Clean up temporary element container.remove(); - + + // Return measured dimensions return {height: bbox.height, width: bbox.width}; }; +// Set multi-line text on SVG text elements. +// Converts
tags to elements for proper SVG rendering. +var setMultilineText = function(textElement, text) { + textElement.each(function(d) { + var textStr = typeof text === 'function' ? text(d) : text; + if (!textStr) return; + var lines = String(textStr).split('
'); + var el = d3.select(this); + el.text(''); + // Line height: 1.2em is standard SVG spacing between text lines + var lineHeight = 1.2; + var y = el.attr('y') || 0; + var x = el.attr('x') || 0; + lines.forEach(function(line, i) { + el.append('tspan') + .attr('x', x) + .attr('dy', i === 0 ? 0 : lineHeight + 'em') + .text(line); + }); + }); +}; + + var nest_by_group = d3.nest().key(function(d){ return d.group; }); var dirs = json_file.split("/"); dirs.pop(); //if a directory path exists, remove the JSON file from dirs @@ -292,9 +322,10 @@ var animint = function (to_select, json_file) { var npanels = Math.max.apply(null, panel_names); // Note axis names are "shared" across panels (just like the title) - var xtitlepadding = 5 + measureText(p_info["xtitle"], default_axis_px).height; - var ytitlepadding = 5 + measureText(p_info["ytitle"], default_axis_px).height; - + var xtitle_size = p_info["xtitle_size"] || (default_axis_px + "pt"); + var ytitle_size = p_info["ytitle_size"] || (default_axis_px + "pt"); + var xtitlepadding = 5 + measureText(p_info["xtitle"], xtitle_size).height; + var ytitlepadding = 5 + measureText(p_info["ytitle"], ytitle_size).height; // 'margins' are fixed across panels and do not // include title/axis/label padding (since these are not // fixed across panels). They do, however, account for @@ -336,18 +367,28 @@ var animint = function (to_select, json_file) { var titlepadding = measureText(p_info.title, p_info.title_size).height; // why are we giving the title padding if it is undefined? if (p_info.title === undefined) titlepadding = 0; + + // Add extra margin below title for multiline text to prevent overlap + // with plot area. The measureText already accounts for multiline height, + // but we need additional bottom margin. + var titleBottomMargin = 5; // pixels of space below title + plotdim.title.x = p_info.options.width / 2; plotdim.title.y = titlepadding; - svg.append("text") - .text(p_info.title) + var titleText = svg.append("text") .attr("class", "plottitle") .attr("font-family", "sans-serif") .attr("font-size", p_info.title_size) .attr("transform", "translate(" + plotdim.title.x + "," + plotdim.title.y + ")") .style("text-anchor", "middle"); + // Use multi-line text helper for plot titles (Issue #221) + setMultilineText(titleText, p_info.title); // grab max text size over axis labels and facet strip labels + // Use consistent base spacing for both axes (distance from ticks to axis title) + var axis_label_base_spacing = 30; + var axispaddingy = 5; if(p_info.hasOwnProperty("ylabs") && p_info.ylabs.length){ axispaddingy += Math.max.apply(null, p_info.ylabs.map(function(entry){ @@ -356,7 +397,7 @@ var animint = function (to_select, json_file) { return measureText(entry, p_info.ysize).width + 5; })); } - var axispaddingx = 30; // distance between tick marks and x axis name. + var axispaddingx = axis_label_base_spacing; // distance between tick marks and x axis name. if(p_info.hasOwnProperty("xlabs") && p_info.xlabs.length){ // TODO: throw warning if text height is large portion of plot height? axispaddingx += Math.max.apply(null, p_info.xlabs.map(function(entry){ @@ -421,7 +462,7 @@ var animint = function (to_select, json_file) { var graph_height = p_info.options.height - nrows * (margin.top + margin.bottom) - strip_height - - titlepadding - n_xaxes * axispaddingx - xtitlepadding; + titlepadding - titleBottomMargin - n_xaxes * axispaddingx - xtitlepadding; // Impose the pixelated aspect ratio of the graph upon the width/height // proportions calculated by the compiler. This has to be done on the @@ -559,7 +600,7 @@ var animint = function (to_select, json_file) { var strip_h = cum_height_per_row[current_row-1]; plotdim.ystart = current_row * plotdim.margin.top + (current_row - 1) * plotdim.margin.bottom + - graph_height_cum + titlepadding + strip_h; + graph_height_cum + titlepadding + titleBottomMargin + strip_h; // room for xaxis title should be distributed evenly across // panels to preserve aspect ratio plotdim.yend = plotdim.ystart + plotdim.graph.height; @@ -765,30 +806,30 @@ var animint = function (to_select, json_file) { } //end of for(layout_i // After drawing all backgrounds, we can draw the axis labels. if(p_info["ytitle"]){ - svg.append("text") - .text(p_info["ytitle"]) + var ytitleText = svg.append("text") .attr("class", "ytitle") .style("text-anchor", "middle") - .style("font-size", default_axis_px + "px") + .style("font-size", ytitle_size) .attr("transform", "translate(" + ytitle_x + "," + (ytitle_top + ytitle_bottom)/2 + - ")rotate(270)") - ; + ")rotate(270)"); + // Use multi-line text helper for y-axis title (Issue #221) + setMultilineText(ytitleText, p_info["ytitle"]); } if(p_info["xtitle"]){ - svg.append("text") - .text(p_info["xtitle"]) + var xtitleText = svg.append("text") .attr("class", "xtitle") .style("text-anchor", "middle") - .style("font-size", default_axis_px + "px") + .style("font-size", xtitle_size) .attr("transform", "translate(" + (xtitle_left + xtitle_right)/2 + "," + xtitle_y + - ")") - ; + ")"); + // Use multi-line text helper for x-axis title (Issue #221) + setMultilineText(xtitleText, p_info["xtitle"]); } Plots[p_name].scales = scales; }; //end of add_plot() @@ -1497,10 +1538,11 @@ var animint = function (to_select, json_file) { .attr("y", toXY("y", "y")) .attr("font-size", get_size) .style("text-anchor", get_text_anchor) - .attr("transform", get_rotate) - .text(function (d) { - return d.label; - }) + .attr("transform", get_rotate); + // Use multi-line text helper for geom_text labels (Issue #221) + setMultilineText(e, function (d) { + return d.label; + }) ; }; eAppend = "text"; @@ -1746,7 +1788,7 @@ var animint = function (to_select, json_file) { "stroke": get_colour_off, "fill": get_fill_off }; - // TODO cleanup. + // TODO cleanup. var select_style_default = ["opacity","stroke","fill"]; g_info.select_style = select_style_default.filter( X => g_info.style_list.includes(X)); @@ -2210,10 +2252,15 @@ var animint = function (to_select, json_file) { var first_th = first_tr.append("th") .attr("align", "left") .attr("colspan", 2) - .text(l_info.title) .attr("class", legend_class) - .style("font-size", l_info.title_size) - ; + .style("font-size", l_info.title_size); + // Use multi-line text helper for legend title (Issue #221) + if (l_info.title && l_info.title.indexOf('
') > -1) { + // Multi-line title: replace
with actual line breaks in HTML + first_th.html(l_info.title.replace(//g, '
')); + } else { + first_th.text(l_info.title); + } var legend_svgs = legend_rows.append("td") .append("svg") .attr("id", function(d){return d["id"]+"_svg";}) diff --git a/tests/testthat/test-compiler-multiline-text.R b/tests/testthat/test-compiler-multiline-text.R new file mode 100644 index 00000000..761ddab0 --- /dev/null +++ b/tests/testthat/test-compiler-multiline-text.R @@ -0,0 +1,92 @@ +context("Multi-line text rendering (Issue #221)") + +test_that("plot title supports multi-line text", { + data <- data.frame(x = 1:5, y = 1:5) + viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + ggtitle("Title Line 1\nTitle Line 2") + ) + info <- animint2dir(viz, "test-title-multiline", open.browser = FALSE) + json <- RJSONIO::fromJSON(file.path(info$out.dir, "plot.json")) + expect_true(grepl("
", json$plots$plot1$title, fixed = TRUE)) + expect_equal(json$plots$plot1$title, "Title Line 1
Title Line 2") +}) + +test_that("x-axis title supports multi-line text", { + data <- data.frame(x = 1:5, y = 1:5) + viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + xlab("X Axis\nLine 2") + ) + info <- animint2dir(viz, "test-xaxis-multiline", open.browser = FALSE) + json <- RJSONIO::fromJSON(file.path(info$out.dir, "plot.json")) + expect_true(grepl("
", json$plots$plot1$xtitle, fixed = TRUE)) + expect_equal(json$plots$plot1$xtitle, "X Axis
Line 2") +}) + +test_that("y-axis title supports multi-line text", { + data <- data.frame(x = 1:5, y = 1:5) + viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + ylab("Y Axis\nLine 2") + ) + info <- animint2dir(viz, "test-yaxis-multiline", open.browser = FALSE) + json <- RJSONIO::fromJSON(file.path(info$out.dir, "plot.json")) + expect_true(grepl("
", json$plots$plot1$ytitle, fixed = TRUE)) + expect_equal(json$plots$plot1$ytitle, "Y Axis
Line 2") +}) + +test_that("geom_text labels support multi-line text", { + data <- data.frame( + x = 1:3, y = 1:3, + label = c("One", "Two\nLines", "Three\nLines\nHere") + ) + viz <- list( + plot1 = ggplot(data, aes(x, y, label = label)) + geom_text() + ) + info <- animint2dir(viz, "test-geomtext-multiline", open.browser = FALSE) + tsv_files <- list.files(info$out.dir, pattern = "text.*\\.tsv$", full.names = TRUE) + expect_true(length(tsv_files) > 0) + text_data <- read.table(tsv_files[1], header = TRUE, sep = "\t", quote = "\"") + multiline_labels <- text_data$label[grepl("
", text_data$label, fixed = TRUE)] + expect_true(length(multiline_labels) >= 2) + expect_true(any(grepl("Two
Lines", multiline_labels, fixed = TRUE))) + expect_true(any(grepl("Three
Lines
Here", multiline_labels, fixed = TRUE))) +}) + +test_that("legend title supports multi-line text", { + data <- data.frame(x = 1:6, y = 1:6, category = rep(c("A", "B", "C"), 2)) + viz <- list( + plot1 = ggplot(data, aes(x, y, color = category)) + + geom_point() + + scale_color_discrete(name = "Category\nName") + ) + info <- animint2dir(viz, "test-legend-multiline", open.browser = FALSE) + json <- RJSONIO::fromJSON(file.path(info$out.dir, "plot.json")) + expect_true("legend" %in% names(json$plots$plot1)) + legend_keys <- names(json$plots$plot1$legend) + expect_true(length(legend_keys) > 0) + has_multiline_title <- FALSE + for (key in legend_keys) { + legend_title <- json$plots$plot1$legend[[key]]$title + if (!is.null(legend_title) && grepl("
", legend_title, fixed = TRUE)) { + has_multiline_title <- TRUE + expect_equal(legend_title, "Category
Name") + break + } + } + expect_true(has_multiline_title) +}) + + +test_that("convertNewlinesToBreaks works correctly", { + expect_equal(animint2:::convertNewlinesToBreaks("Line1\nLine2"), "Line1
Line2") + expect_equal(animint2:::convertNewlinesToBreaks("A\nB\nC\nD"), "A
B
C
D") + expect_equal(animint2:::convertNewlinesToBreaks("No newlines here"), "No newlines here") + expect_equal(animint2:::convertNewlinesToBreaks(""), "") + result <- animint2:::convertNewlinesToBreaks(c("A\nB", "C", "D\nE\nF")) + expect_equal(result, c("A
B", "C", "D
E
F")) +}) diff --git a/tests/testthat/test-multiline-spacing.R b/tests/testthat/test-multiline-spacing.R new file mode 100644 index 00000000..731685cb --- /dev/null +++ b/tests/testthat/test-multiline-spacing.R @@ -0,0 +1,97 @@ +context("Multiline text spacing and positioning") +library(animint2) + +test_that("multiline plot title stays above plot area", { + skip_if_not_installed("chromote") + data <- data.frame(x = 1:5, y = 1:5) + viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + ggtitle("First Line\nSecond Line\nThird Line") + ) + info <- animint2HTML(viz) + # Get title element bounding box + title_bbox <- get_element_bbox(".plottitle") + # Get first data point (which should be below the title) + point_bbox <- get_element_bbox("circle.geom") + # CRITICAL TEST: Title bottom must be ABOVE first data point + # With multiline titles, the bottom of the title (top + height) + # should not overlap with plot area + title_bottom <- title_bbox$top + title_bbox$height + expect_true( + title_bottom < point_bbox$top, + info = sprintf( + "Title bottom (%.1f) must be above plot area/points (%.1f). Gap: %.1f pixels", + title_bottom, point_bbox$top, point_bbox$top - title_bottom + ) + ) +}) + +test_that("multiline axis labels have consistent spacing", { + skip_if_not_installed("chromote") + data <- data.frame(x = 1:5, y = 1:5) + viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + xlab("X Axis Label\nSubtitle") + + ylab("Y Axis Label\nSubtitle") + ) + info <- animint2HTML(viz) + # Get X-axis label and ticks + xtitle_bbox <- get_element_bbox(".xtitle") + xaxis_bbox <- get_element_bbox(".xaxis") + # Get Y-axis label and ticks + ytitle_bbox <- get_element_bbox(".ytitle") + yaxis_bbox <- get_element_bbox(".yaxis") + # Calculate spacing (distance between axis ticks and labels) + # For X-axis: vertical distance from axis to label + x_spacing <- xtitle_bbox$top - (xaxis_bbox$top + xaxis_bbox$height) + # For Y-axis: horizontal distance from label to axis + y_spacing <- yaxis_bbox$left - (ytitle_bbox$left + ytitle_bbox$width) + # TEST: Spacing should be approximately equal (within 15 pixels tolerance) + # This accounts for rotation and different orientations + expect_true( + abs(x_spacing - y_spacing) < 15, + info = sprintf( + "X-axis spacing (%.1f px) and Y-axis spacing (%.1f px) should be consistent. Difference: %.1f px", + x_spacing, y_spacing, abs(x_spacing - y_spacing) + ) + ) +}) + +test_that("multiline labels match single-line spacing baseline", { + skip_if_not_installed("chromote") + # Test 1: Single-line labels + viz_single <- list( + plot1 = ggplot(data.frame(x=1:5, y=1:5), aes(x, y)) + + geom_point() + + xlab("X Label") + + ylab("Y Label") + ) + info_single <- animint2HTML(viz_single) + # Test 2: Multi-line labels + viz_multi <- list( + plot1 = ggplot(data.frame(x=1:5, y=1:5), aes(x, y)) + + geom_point() + + xlab("X Label\nLine 2") + + ylab("Y Label\nLine 2") + ) + info_multi <- animint2HTML(viz_multi) + # Get single-line spacing + xtitle_s <- get_element_bbox(".xtitle") + xaxis_s <- get_element_bbox(".xaxis") + single_spacing <- xtitle_s$top - (xaxis_s$top + xaxis_s$height) + # Get multi-line spacing + xtitle_m <- get_element_bbox(".xtitle") + xaxis_m <- get_element_bbox(".xaxis") + multi_spacing <- xtitle_m$top - (xaxis_m$top + xaxis_m$height) + # TEST: Spacing should be similar (within 10 pixels) + # The base margin should be the same; multiline just extends downward + expect_true( + abs(single_spacing - multi_spacing) < 10, + info = sprintf( + "Multiline spacing (%.1f) should match single-line baseline (%.1f). Difference: %.1f px", + multi_spacing, single_spacing, abs(single_spacing - multi_spacing) + ) + ) +}) diff --git a/tests/testthat/test-renderer1-multiline-spacing.R b/tests/testthat/test-renderer1-multiline-spacing.R new file mode 100644 index 00000000..aa10706b --- /dev/null +++ b/tests/testthat/test-renderer1-multiline-spacing.R @@ -0,0 +1,21 @@ +acontext("multiline text spacing") +data <- data.frame(x = 1:10, y = 1:10) +viz <- list( + plot1 = ggplot(data, aes(x, y)) + + geom_point() + + ggtitle("Multiline Title\nLine Two\nLine Three") + + ylab("Y Axis\nLabel Two") + + theme(text = element_text(size = 20)) +) +info <- animint2HTML(viz) +test_that("multiline plot title with large font does not overlap plot area", { + title_bbox <- get_element_bbox(info$html, '//text[@class="plottitle"]') + plot_rect <- get_element_bbox(info$html, '//svg[@id="plot_plot1"]//rect[@class="plot_rect"]') + expect_lt(title_bbox$bottom, plot_rect$top) +}) +test_that("multiline y-axis title with large font does not overlap plot area", { + ytitle_bbox <- get_element_bbox(info$html, '//text[@class="ytitle"]') + plot_rect <- get_element_bbox(info$html, '//svg[@id="plot_plot1"]//rect[@class="plot_rect"]') + expect_lt(ytitle_bbox$right, plot_rect$left) +}) +