Commit 13aefa2a authored by Dorchies David's avatar Dorchies David
Browse files

fix(fdt_is_editable): wrong detection of availability of "Envoyer en validation" button

parent a5777d28
......@@ -16,10 +16,6 @@
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"
is.na(session %>% rvest::html_node(xpath = "//div[@id=\"edition_en_masse\"]/button") %>%
rvest::html_attr(name = "disabled"))
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment