R/checkHTML.R

Defines functions checkHTML

Documented in checkHTML

#' @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, ...))
  
}

Try the statcheck package in your browser

Any scripts or data that you put into this service are public.

statcheck documentation built on Jan. 23, 2023, 5:30 p.m.