A custom Shiny input widget built with HTML and CSS that lets you select a body part and will return that body part's name.You can also color limbs based on data by specifying high and low color values:
remotes::install_github("MayaGans/shinyBody")
library(shiny)
ui <- function() {
fluidPage(
bodyInput("human", data = c(rnorm(13, 100))),
verbatimTextOutput("debug")
)
}
server <- function(input, output) {
output$debug <- renderPrint(input$human)
}
shinyApp(ui = ui, server = server)