inst/app/app_mcsl.R

output$InfoBox <- renderValueBox({
  valueBox(
    value = "Info Bar", #format(Sys.time(), "%a %b %d %X %Y %Z"),
    subtitle = envv$InfoBox_sub,
    icon = icon("area-chart"),
    color = "yellow" #if (downloadRate >= input$rateThreshold) "yellow" else "aqua"
  )
})
eisascience/PViST documentation built on Dec. 20, 2021, 3:24 a.m.