library(shiny)
myGauge <- function(id, label, value) {
tagList(
tags$label(
`for` = id,
label
),
tags$meter(
id = id,
value = value
)
)
}
ui <- fluidPage(
myGauge("test", "test",0.5)
)
server <- function(input, output, session) {}
shinyApp(ui, server)