Estoy tratando de incorporar JS en Shiny sin escribir nada en el servidor. Aquí está el código
library(shiny) ui <- fluidPage( tags$head(HTML('<p id="res">Value</p>'), tags$script("document.getElementById('res').innerHTMl=x")), textInput("x", label = "Text") ) server <- function(input, output) { } shinyApp(ui, server)Básicamente, independientemente de lo que escribamos dentro del cuadro de texto, el "Valor" debería cambiarse. ¿Alguien puede ayudarme?
Esto lo haría.
tags$head excepto meta, enlace, CSS o script. library(shiny) ui <- fluidPage( HTML('<p id="res">Value</p>'), textInput("x", label = "Text"), tags$script("$('#x').on('input', function(){$('#res').text($(this).val());});") ) server <- function(input, output) {} shinyApp(ui, server)