Nothing
replaceWPX<-function(WPX, onepx , ind=1)
{
#### delete members from WPX list
dpx = data.frame(WPX, stringsAsFactors = FALSE)
opx = data.frame(onepx, stringsAsFactors = FALSE)
dpx[ind,] = opx[1,]
WPX = as.list(dpx)
return(WPX)
}
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.