Nothing
check_CANS_export <- function () {
# checks field length of CANS export file
# J. Simons <jack.simons@state.ma.us>
# 4:55 PM Tuesday, March 01, 2011
winDialog(type = "okcancel", "Click OK to choose the delimited \n text file to read. It must be in the format exported by the \n CBHI CANS application.")
txt.file <- file.choose()
cat("\nFile to check is ", txt.file, "\n\n")
rec.length <- count.fields(txt.file, sep = "|", quote = "", comment.char = "")
cat('Minimum record length was: ', min(rec.length), '\n', sep='')
cat('Maximum record length was: ', max(rec.length), '\n\n', sep='')
}
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.