if (FALSE) {
# extract from span name
extract_input_id_from_span("reactive:input$slider1", NULL) # returns "slider1"
# extract from attributes
attrs <- list(list(key = "input_id", value = list(stringValue = "text1")))
extract_input_id_from_span("reactive", attrs) # returns "text1"
}
Run the code above in your browser using DataLab