|
...
|
...
|
@@ -390,7 +390,7 @@ plotTracks <- function(trackList, from = NULL, to = NULL, ..., sizes = NULL, pan
|
|
390
|
390
|
while (any(vapply(tmpThisTrack, is, "OverlayTrack", FUN.VALUE = logical(1L)))) {
|
|
391
|
391
|
tmpThisTrack <- rapply(tmpThisTrack, function(x) if (is(x, "OverlayTrack")) x@trackList else x)
|
|
392
|
392
|
}
|
|
393
|
|
- tmpSpaceSetup <- .setupTextSize(list(tmpThisTrack[[1]]), sizes, title.width, spacing = innerMargin)
|
|
|
393
|
+ tmpSpaceSetup <- .setupTextSize(list(tmpThisTrack[[1]]), sizes[1], title.width, spacing = innerMargin)
|
|
394
|
394
|
spaceSetup$nwrap[i] <- tmpSpaceSetup$nwrap[1]
|
|
395
|
395
|
if (spaceSetup$title.width < tmpSpaceSetup$title.width) {
|
|
396
|
396
|
spaceSetup$title.width <- tmpSpaceSetup$title.width
|
