fdt_isValidable.R

#' Check if the monthly time sheet can be validated
#'
#' Function used by [fdt_valid] before validation attempt.
#'
#' @inheritParams fdt_valid
#'
#' @return [logical] `TRUE` if the time sheet is ready for validation, `FALSE` otherwise
#' @export
#'
#' @examples
#' \dontrun{
#' library(hatata)
#' session <- login("pnom", "my_password")
#' fdt_valid(session, "15/04/2021")
#' }
fdt_isValidable <- function(session, date_validation) {
  session <- jump_to_pointage(session, date = date_validation)

  lForms <- rvest::html_form(session)
  names(lForms) <- sapply(lForms, function(x) x$name)

  f <- lForms[["form_update_report"]]

  f$fields[[length(f$fields)]]$attr$id == "btn_save_report"
}