Nothing
## This function exchange one single character cell to tabular data set
char_to_tab <- function (merged_data){
tab_row <- as.data.frame(strsplit(as.character(merged_data), "#"))
tabular_data <- c()
for (i in 1:length(tab_row[,1])) {
tab_col <- as.data.frame(strsplit(as.character(tab_row[i,]), "\\*"))
names(tab_col) <- "row"
tab_col <- as.data.frame(t(tab_col))
tabular_data <- rbind(tabular_data, tab_col)
}
colnames(tabular_data) <- as.character(unlist(tabular_data[1,]))
tabular_data <- tabular_data[-c(1), ]
return(tabular_data)
}
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.