Nothing
##' @include misc.R
NULL
## Basic functions for tcltk objects
##' method for getWidget defined in gWidgets2
##'
##' @param obj object
##' @export
##' @method getWidget tkwin
getWidget.tkwin <- function(obj) obj
getBlock <- function(obj) {
if(is(obj, "GComponent"))
obj$get_block()
else
obj
}
## some package icons, fonts, colors
## CONSTANTS
widthOfChar <- ceiling(as.numeric(tclvalue(tcl("font","measure","TkTextFont","0"))))
heightOfChar <- as.numeric(as.character(tcl("font","metrics","TkTextFont"))[6])
xyToAnchor <- function(anchor) {
m = rbind(
c("nw","n","ne"),
c("w","center","e"),
c("sw","s","se")
)
anchor = m[2 - anchor[2],2 + anchor[1]]
return(anchor)
}
is_aqua <- function() {
as.character(tcl("tk","windowingsystem")) == "aqua"
}
## merge two lists
merge_list <- function(x, y, overwrite=TRUE) {
x <- as.list(x)
if(missing(y) || is.null(y))
return(x)
for(i in names(y))
if((is.logical(overwrite) && overwrite) || !(i %in% names(x)))
x[[i]] <- y[[i]]
x
}
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.