#794

R/tmapGridComp.R

@@ -566,15 +566,46 @@ tmapGridCompHeight_text = function(comp, o) {
  textS = if (comp$text == "") 0 else comp$size #* o$scale
  textP = comp$padding[c(3,1)] * textS * o$lin
  textH = textS * o$lin
- comp$Hin = sum(textP[1], textH, textP[2])
+
+ nlines = number_text_lines(comp$text)
+
+ comp$Hin = sum(textP[1], textH * nlines, textP[2])
  comp
 }
 
+# borrowed from treemap (wraps text to 1-5 lines)
+wrapText = function(txt, nlines) {
+ if (nlines == 1) {
+ txt
+ } else {
+ # create some wrappings, with slightly different widths:
+ results <- lapply(1:5, FUN=function(pos, nlines, txt) {
+ strwrap(txt, width = pos+(nchar(txt)/nlines))}, nlines, txt)
+ lengths = sapply(results, length)
+
+ # find the best match
+ diff = nlines - lengths
+ diff[diff < 0] = 1000
+ id = which.min(diff)[1]
+
+ paste(results[[id]], collapse = "\n")
+ }
+}
+
+
 tmapGridCompWidth_text = function(comp, o) {
  textS = if (comp$text == "") 0 else comp$size #* o$scale
  textP = comp$padding[c(2,4)] * textS * o$lin
  textW = textS * graphics::strwidth(comp$text, units = "inch", family = comp$fontfamily, font = fontface2nr(comp$fontface))
- comp$Win = sum(textP[1], textW, textP[2])
+
+ w = sum(textP[1], textW, textP[2])
+ if (!is.na(comp$width)) {
+ approxNumL = min(20, round(w / (comp$width * textS * o$lin)))
+ comp$text = wrapText(comp$text, approxNumL)
+ comp$Win = comp$width * textS * o$lin
+ } else {
+ comp$Win = w
+ }
  comp
 }