runApp(shinyApp( ui = fluidPage( textInput("name", "Name"), numericInput("age", "Age", 25) ), server = function(input, output, session) { observe({ query <- parseQueryString(session$clientData$url_search) if (!is.null(query[['name']])) { updateTextInput(session, "name", value = query[['name']]) } if (!is.null(query[['age']])) { updateNumericInput(session, "age", value = query[['age']]) } }) }))
I will try this, do you know if there is a way to get the R source code?
--
You received this message because you are subscribed to a topic in the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/shiny-discuss/g1p9HZmEpmo/unsubscribe.
To unsubscribe from this group and all its topics, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/b435c13d-be39-40e2-8506-d5cb010ebe0d%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.