Nothing
transpose <- function(data, sp.cols = 1:ncol(data), reg.names = NULL) {
# version 1.2 (5 Jul 2022)
data <- as.data.frame(data)
transp <- as.data.frame(t(data[ , sp.cols]))
colnames(transp) <- data[ , reg.names]
return(transp)
}
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.