Nothing
#' Rescan already submitted files
#'
#' The function returns a data.frame with a \code{scan_id} and \code{sha256}, \code{sha1}, \code{md5} hashes,
#' all of which can be used to retrieve the report using \code{\link{file_report}}
#'
#' @param hash Hash for the scan. String. Required.
#' @param \dots Additional arguments passed to \code{\link{virustotal2_POST}}.
#'
#' @return data.frame with 12 columns:
#' \code{scans, scan_id, sha1, resource, response_code, scan_date, permalink, verbose_msg, total, positives, sha256, md5}
#' \code{response_code} is 0 if the file is not in the database (hash can't be found).
#'
#' @export
#'
#' @references \url{https://developers.virustotal.com/v2.0/reference}
#'
#' @seealso \code{\link{set_key}} for setting the API key
#'
#' @examples \dontrun{
#'
#' # Before calling the function, set the API key using set_key('api_key_here')
#'
#' rescan_file(hash='99017f6eebbac24f351415dd410d522d')
#' rescan_file(hash='99017f6ee51415dd410d522d') # incorrect hash
#' }
rescan_file <- function(hash = NULL, ...) {
if (!is.character(hash)) {
stop("Must specify the hash.")
}
params <- list(resource = hash)
.Deprecated("")
res <- virustotal2_POST(path = "file/rescan", query = params, ...)
if (res$response_code == 0 ){
res_df <- read.table(text = "", col.names = c("scans", "scan_id", "sha1",
"resource", "response_code",
"scan_date", "permalink",
"verbose_msg", "total",
"positives", "sha256",
"md5"))
res_df[1, match(names(res), names(res_df))] <- res
return(res_df)
}
as.data.frame(res)
}
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.