New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Idea: Strip text search #6

Open

stefanedwards opened this issue Sep 21, 2017 · 1 comment

Labels

Owner

stefanedwards commented Sep 21, 2017

To find a strip (any?) grob with a particular label. Question is, what to return? It is essentially a tree-path to the grob.

stefanedwards added the enhancement label

Owner Author

stefanedwards commented Dec 8, 2017

Code from a project that searches for 'Overall' and updates the gpar to bold.

# find strip overall and make bold
i <- (grepl('strip', g$layout$name) & !sapply(g$grobs, lemon:::is.zero)) %>% which
j <- which(sapply(g$grobs[i], function(x) x[[1]][[1]]$children[[2]]$children[[1]]$label, simplify=FALSE) == 'Overall')
g$grobs[[i[j]]]$grobs[[1]]$children[[2]]$children[[1]]$gp$fontface <- 'bold' 
g$grobs[[i[j]]]$grobs[[1]]$children[[2]]$children[[1]]$gp$font <- c('bold'=2L)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment