Nothing
.physical <- function(x){
.subset2(x, "physical")
}
`.physical<-` <- function (x, value)
{
attributes(attr(x, "physical")) <- c(value, list(class = "ff_pointer"))
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.