Nothing
getPnet <-
function () {
initdir <- get("initdir", envir = .GlobalEnv )
filename <- tclvalue(tkgetOpenFile(filetypes = gettext("{\"R Data Files\" {\".rda\" \".Rdata\" \".RDA\"}} {\"All Files\" {\"*\"}}"),
initialdir = initdir))
tkconfigure(tt ,cursor="watch")
# tclvalue(filepnet) <<- filename
#dataSet <- load(filename, envir = .tempEnv )
LoadRdata(filename,"Pnet")
tclvalue(filepnet) <<- paste(inptObjt, "->", filename)
checkObject ("inptObjt")
tkconfigure(tt ,cursor="arrow")
}
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.