Nothing
droplet_ip = function (droplet)
{
v4 <- droplet$network$v4
if (length(v4) == 0) {
stop("No network interface registered for this droplet\n Try refreshing like: droplet(d$id)",
call. = FALSE)
}
ips <- do.call("rbind", lapply(v4, as.data.frame))
public_ip <- ips$type == "public"
if (!any(public_ip)) {
ip <- v4[[1]]$ip_address
}
else {
ip <- ips$ip_address[public_ip][[1]]
}
ip
}
droplet_ip_safe = function (droplet)
{
res <- tryCatch(droplet_ip(droplet), error = function(e) e)
if (inherits(res, "simpleError"))
"droplet likely not up yet"
else res
}
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.