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