Nothing
rm.end.NAs <-
function(dat){
start <- length(dat)
for(i in start:1){
if(is.na(dat[i])){
end <- i
}else{
end <- i
break
}
}
return(dat[1:end])
}
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.