From 00a91a2c582cbcba269e1977d9e3cddb4c96dfe6 Mon Sep 17 00:00:00 2001
From: Flavio Poletti <flavio.poletti@hotmail.ch>
Date: Tue, 6 Feb 2024 07:47:07 +0100
Subject: [PATCH] internal reached_quorums()

---
 NAMESPACE              | 1 -
 R/quorum.R             | 4 ++--
 man/reached_quorums.Rd | 3 ++-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 8e937b0..85061ec 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -20,7 +20,6 @@ export(quorum_any)
 export(quota_largest_remainder)
 export(reached_quorum_any_district)
 export(reached_quorum_total)
-export(reached_quorums)
 export(run_app)
 export(upper_apportionment)
 importFrom(stats,setNames)
diff --git a/R/quorum.R b/R/quorum.R
index 470a2d7..58019dd 100644
--- a/R/quorum.R
+++ b/R/quorum.R
@@ -153,8 +153,8 @@ reached_quorum_any_district = function(votes_matrix, quorum_districts) {
 #' votes_matrix = matrix(c(502, 55, 80, 10, 104, 55, 0, 1), ncol = 2)
 #'
 #' quorum_functions = quorum_any(any_district = 0.1, total = 100)
-#' reached_quorums(votes_matrix, quorum_functions)
-#' @export
+#' proporz:::reached_quorums(votes_matrix, quorum_functions)
+#' @keywords internal
 reached_quorums = function(votes_matrix, quorum_funcs) {
     if(!is.list(quorum_funcs) || !is.function(quorum_funcs[[1]])) {
         stop("`", deparse(substitute(quorum_funcs)),
diff --git a/man/reached_quorums.Rd b/man/reached_quorums.Rd
index b8dd21e..415185a 100644
--- a/man/reached_quorums.Rd
+++ b/man/reached_quorums.Rd
@@ -28,8 +28,9 @@ Apply a list of quorum functions to a votes matrix
 votes_matrix = matrix(c(502, 55, 80, 10, 104, 55, 0, 1), ncol = 2)
 
 quorum_functions = quorum_any(any_district = 0.1, total = 100)
-reached_quorums(votes_matrix, quorum_functions)
+proporz:::reached_quorums(votes_matrix, quorum_functions)
 }
 \seealso{
 \code{\link[=quorum_all]{quorum_all()}}, \code{\link[=quorum_any]{quorum_any()}} to create a list of quorum functions.
 }
+\keyword{internal}