Closed stevenpbachman closed 5 years ago
testing this out - use gauges to show results against LC thresholds seems to be working, but just need to link to stats table
UI
dashboardBody( column(6, box( flexdashboard::gaugeOutput("plt1"),width=12,title="Gauge Graph",background ="green" ) ) ),
Server
output$plt1 <- flexdashboard::renderGauge({ gauge(56, min = 0, max = 100, symbol = '%', label = paste("Test Label"),gaugeSectors( success = c(100, 6), warning = c(5,1), danger = c(0, 1), colors = c("#CC6699") )) })
show when statistics indicate species is possible LC e.g. TDWG >5 or EOO >100,000
slightly more intuitive than simply showing the values. A good start here - note you need shiny and flex dashboard packages.
https://stackoverflow.com/questions/42363577/shiny-gauge-from-flexdashboard-in-shiny-app