Nothing
stringToStringList <- function(string) {
#-------------------------------
# convert one string in a list with the single strings
# each string is 16 characters long, and trailing whitespaces are removed
# this function is used in LoadBeatEDFPlus
#-------------------------------
limit = nchar(string)
num=limit/16
final=c()
for (i in 1:num) {
start=(i-1)*16+1
# message(paste("String no.",i,"\n"))
substring = substr(string,start,start+15)
# message(paste(" ..",substring,"..\n",sep=""))
substring2 = gsub(" *$","", substring, perl=T)
# message(paste(" ..",substring2,"..\n",sep=""))
final=c(final,substring2)
}
return(final)
}
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.