donnees_dispo sur le champ disponible

pierre-lamarche · pierre-lamarche · commit 087a1f26e8bc · 2025-01-01T14:47:43.000+01:00
diff --git a/R/donnees_dispo.R b/R/donnees_dispo.R
@@ -37,7 +37,7 @@ donnees_dispo <- function(recherche_init = NULL,
   # 1 - construit table à afficher
   affich <-
     listToDf(
-      liste = ld,
+      liste = ld[which(sapply(ld, function(x) x$disponible))],
       vars = c("collection", "libelle", "nom", "date_ref", "size")
     )
   affich$size <- round(as.numeric(affich$size) / 1048576, 1) # conversion Mo

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ donnees_dispo <- function(recherche_init = NULL,`
`37`	`37`	`# 1 - construit table à afficher`
`38`	`38`	`affich <-`
`39`	`39`	`listToDf(`
`40`		`- liste = ld,`
	`40`	`+ liste = ld[which(sapply(ld, function(x) x$disponible))],`
`41`	`41`	`vars = c("collection", "libelle", "nom", "date_ref", "size")`
`42`	`42`	`)`
`43`	`43`	`affich$size <- round(as.numeric(affich$size) / 1048576, 1) # conversion Mo`