fdt_valid.R

#' Monthly time sheet validation
#'
#' Returns an error if the time sheet is not ready for validation.
#'
#' @param session a [rvest::session] provided by [login] or [jump_to_mon_calendrier] functions
#' @param date_validation a [character] representing a date during the month to validate in format "%Y-%m-%d"
#'
#' @return the return of the [httr::POST] function
#' @export
#'
#' @examples
#' \dontrun{
#' library(hatata)
#' session <- login("pnom", "my_password")
#' fdt_valid(session, "15/04/2021")
#' }
fdt_valid <- function(session, date_validation) {
    session <- jump_to_pointage(session, date = date_validation)
    if(!fdt_isValidable(session, date_validation)) stop("The time sheet is not ready for validation. Check it on https://temps-activites.inrae.fr")

    url <- gsub("action=showTempsTheorique", "action=updateReport", session$url)
    cookies <- session$response$cookies$value
    names(cookies) <- session$response$cookies$name

    POST(url,
         set_cookies(.cookies = cookies))
}