Nothing
"shift" <-
function(v,places,dir="right"){
vnew<-NULL
d<-substring(dir,1,1)
if(d=="r" & places<0 ){
d<-"l"}
else {if (d=="l" & places<0){d<-"r"}}
n<-length(v)
if(n==1){
places<-0
}
p<-abs(places)
if (p==0){vnew<-v}
else{
if (d=="r"){
vnew<-c(v[(n-p+1):n],v[1:(n-p)])
}
else{
vnew<-c(v[(p+1):n],v[1:p])
}
}
vnew
}
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.