Styling waffle title

Shiny
1

...Hi guys, Ive been all round the hosues with this.
Is it possible to change the size of a waffle title?
Thanks

2

We don't really have enough info to help you out. Could you ask this with a minimal REPRoducible EXample (reprex)? A reprex makes it much easier for others to understand your issue and figure out how to help.

3

Sorry @andresrcs

My code in server.R file:

output$waffle <- renderPlot({
      data_pred_l <-  prediction_l()
      parts <- c(`Type 1 diabetes` = round(data_pred_l[["p_1y"]]*100), `Type 1 diabetes free` = round((1-data_pred_l[["p_1y"]])*100))
      str <- paste0(tags$i("This represents "),round(data_pred_l[["p_1y"]]*100,1) , " cases for 100 people.", size=4)
      #chart <- waffle(parts, rows=nrows,colors = c("blue","orange"), size = size_waffle,use_glyph = "child",title = str)
      chart <- waffle(parts, rows=nrows,colors = c("blue","orange"), size = size_waffle,title = str)
      chart       
         })

ui.R:

library(shiny)
library(plotly)
library(viridis)
htmlTemplate("www/index.html",
waffle = column(12, align = "center", size="0.1", plotOutput("waffle"))   
)

index.html:

<!DOCTYPE html>
<html>

<head>
   {{ headContent() }}
   {{ bootstrapLib() }}
</head>

<body>
 {{ waffle }}

</body>
</html>

I want to change the size of the Waffle title to be 14px in size.
Thanks