increase font size of valuebox text

tbep-tech · Sep 3, 2023 · 4c1f9db · 4c1f9db
1 parent 7d36bc2
commit 4c1f9db
Show file tree

Hide file tree

Showing 3 changed files with 999 additions and 816 deletions.
diff --git a/R/funcs.R b/R/funcs.R
@@ -54,7 +54,7 @@ sclbox_fun <- function(cntdat, yr){
     pull(`Scallops found`) %>%
     sum(na.rm = T)
 
-  out <- valueBox(cnts, paste('Scallops found in', yr), color = '#427355', icon = 'fa-search')
+  out <- valueBox(cnts, tags$p(paste('Scallops found in', yr), style = 'font-size: 150%'), color = '#427355', icon = 'fa-search')
 
   return(out)
 
@@ -69,7 +69,7 @@ btsbox_fun <- function(cntdat, yr){
     unique %>%
     length
 
-  out <- valueBox(cnts, paste('Boats searching in', yr), color = '#004F7E', icon = 'fa-ship')
+  out <- valueBox(cnts, tags$p(paste('Boats searching in', yr), style = 'font-size: 150%'),  color = '#004F7E', icon = 'fa-ship')
 
   return(out)
 
@@ -90,7 +90,7 @@ cntbox_fun <- function(cntdat, yr){
     ) %>%
     pull(totscl)
 
-  out <- valueBox(cnts, paste('Scallops per boat in', yr), color = '#958984', icon = 'fa-balance-scale')
+  out <- valueBox(cnts, tags$p(paste('Scallops per boat in', yr), style = 'font-size: 150%'), color = '#958984', icon = 'fa-balance-scale')
 
   return(out)
 

diff --git a/index.Rmd b/index.Rmd
@@ -20,6 +20,7 @@ library(flexdashboard)
 library(extrafont)
 library(leaflet)
 library(plotly)
+library(htmltools)
 
 source('R/funcs.R')
 

diff --git a/index.html b/index.html