library(shiny)
server <- function(input, output, session) {
output$g <- renderText(paste0("Weight (in g): ", input$kg * 1000))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.