You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
432 B
24 lines
432 B
|
|
valueUI<- function(id){
|
|
ns<-NS(id)
|
|
valueBoxOutput(ns("vbox"))
|
|
}
|
|
|
|
valueServer<-function(id, ttl="title",n,icn="credit-card",clr="red",symbl){
|
|
moduleServer(
|
|
id,
|
|
function(input,output,session){
|
|
#print(n())
|
|
output$vbox<- renderValueBox({
|
|
valueBox(
|
|
paste0(n," ", symbl),
|
|
ttl,
|
|
icon=icon(icn),
|
|
color = clr
|
|
)
|
|
})
|
|
|
|
|
|
}
|
|
)
|
|
}
|