Nothing
library(colorspace)
temp <- as.matrix(read.table("glasbey.txt", sep="\t", header=TRUE))
glasbey <- hex(sRGB(temp/255))
names(glasbey) <- paste("G", 1:32, sep='')
save(glasbey, file="glasbey.rda")
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.