Nothing
#' @title Create a child widget path
#'
#' @description This function is similar to \code{.Tk.subwin} except that does
#' not the environment of the "tkwin" object to keep track of numbering the
#' subwidgets. Instead it creates a widget path (parent).looni, where i is the
#' smallest integer for which no widget exists yet.
#'
#' @param parent parent widget path
#' @param name child name
#
#' @return widget path name as a string
#'
#' @export
l_subwin <- function(parent, name="w") {
if(is(parent,"tkwin")) {
parent <- .Tk.ID(parent)
}
i <- 0
child <- paste0(parent, '.', name)
while(as.logical(tcl('winfo','exists', child))) {
i <- i + 1
child <- paste0(parent, '.', name, i)
}
return(child)
}
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.