R/checkHTML.R

In MicheleNuijten/statcheck: Extract Statistics from Articles and Recompute P-Values

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