diff --git a/R/figs.R b/R/figs.R index ab43895..6749083 100644 --- a/R/figs.R +++ b/R/figs.R @@ -516,7 +516,7 @@ p <- p1 + p2 + plot_layout(ncol = 2, guides = 'collect', widths = c(0.6, 1)) & legend.position = 'bottom' ) -png(here('docs/figs/hmpreport.png'), height = 6, width = 7, units = 'in', res = 500) +png(here('docs/figs/hmpreport.png'), height = 6.5, width = 7, units = 'in', res = 500) print(p) dev.off() diff --git a/R/funcs.R b/R/funcs.R index fdacc95..bcff789 100644 --- a/R/funcs.R +++ b/R/funcs.R @@ -64,7 +64,7 @@ tab_fun <- function(dat, yrrng, fntsz = 14, family = NULL, rowgrp = c('Primary', tab <- reactable( totab, columns = list( - rowgrp = colDef(name = 'Habitat', minWidth = habmin, maxWidth = habmin, class = 'sticky left-col-1-bord', headerClass = 'sticky left-col-1-bord', footerClass = 'sticky left-col-1-bord'), + rowgrp = colDef(name = 'Habitat', minWidth = habmin, maxWidth = habmin, align = 'left', class = 'sticky left-col-1-bord', headerClass = 'sticky left-col-1-bord', footerClass = 'sticky left-col-1-bord'), tot = colDef(name = 'Total projects', minWidth = 70, maxWidth = 70) ), defaultColDef = colDef( @@ -72,6 +72,7 @@ tab_fun <- function(dat, yrrng, fntsz = 14, family = NULL, rowgrp = c('Primary', minWidth = 105, maxWidth = 105, resizable = F, + align = 'center', style = function(value, index) { if (index %in% bld) list(fontWeight = "bold", fontSize = fntsz, fontFamily = family) diff --git a/docs/figs/hmpreport.png b/docs/figs/hmpreport.png index 1598296..ebd7864 100644 Binary files a/docs/figs/hmpreport.png and b/docs/figs/hmpreport.png differ diff --git a/docs/summaries.html b/docs/summaries.html index 2cdb8db..38c6f01 100644 --- a/docs/summaries.html +++ b/docs/summaries.html @@ -701,7 +701,7 @@

Total 2024 projects -