1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#' List collections or cores
#'
#' @export
#' @inheritParams ping
#' @details Calls [collection_list()] or [core_status()] internally,
#' and parses out names for you.
#' @return character vector
#' @examples \dontrun{
#' # connect
#' (conn <- SolrClient$new())
#'
#' # list collections
#' conn$collection_list()
#' collections(conn)
#'
#' # list cores
#' conn$core_status()
#' cores(conn)
#' }
collections <- function(conn, ...) {
check_sr(conn)
as.character(conn$collection_list(...)$collections)
}
#' @export
#' @rdname collections
cores <- function(conn, ...) {
check_sr(conn)
names(conn$core_status(...)$status)
}
|
