# NOT RUN {
library(dash)
app <- Dash$new()
app$layout(
dccInput(id = "inputID", value = "initial value", type = "text"),
htmlDiv(id = "outputID")
)
app$callback(output = list(id="outputID", property="children"),
params = list(input(id="inputID", property="value"),
state(id="inputID", property="type")),
function(x, y)
sprintf("You've entered: '%s' into a '%s' input control", x, y)
)
app$run_server(showcase = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab