ConvertIntToUInt<-function(x,adjustment=2^32){
x=as.numeric(x)
signs=sign(x)
x[signs<0]=x[signs<0]+adjustment
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.