Nothing
#' @rdname checkfiles
#' @export
checkHTML <- function(files,
...)
{
if (missing(files))
files <- tcltk::tk_choose.files()
txts <- sapply(files, getHTML)
names(txts) <- basename(files)
return(statcheck(txts, ...))
}
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.