Nothing
#' Change the value of a material_text_box on the client
#'
#' Change the value of a material_text_box on the client.
#' @param session The session object passed to function given to shinyServer.
#' @param input_id The input_id of the material_text_box.
#' @param value The value to set for the material_text_box.
#' @seealso \code{\link{material_text_box}}
#' @examples
#' \dontrun{
#' update_material_text_box(
#' session,
#' input_id = "example_text_box",
#' value = "New Text"
#' )
#' }
update_material_text_box <- function(session, input_id, value = NULL){
if(is.null(value)) {
return(NULL)
}
session$sendCustomMessage(
type = "shinymaterialJS",
paste0(
"$('#", input_id, "').val('", value, "');Shiny.onInputChange('", input_id, "', '", value, "');M.updateTextFields()"
)
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.