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

R/fdt_isValidable.R

@@ -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"))
 }