Compare 6147117 ... +47 ... f079d9d

#' @param perl Indicates if perl-compatible regexps should be used.

#'   Default is `TRUE`. Optional.

#'

#' and a column for each *named* group within a match.  For the

#' `retrieve_checkbox_choices()` function, the columns will be.

#' * `id`: The numeric value assigned to each choice (in the data dictionary).

#' @details

#' The [regex_named_captures()] function is general, and not specific to

#' REDCap; it accepts any arbitrary regular expression.

#'

#' The [checkbox_choices()] function is specialized, and accommodates the

#' "select choices" for a *single* REDCap checkbox group (where multiple boxes

#' for the numeric id and one for the text label.

#'

#' @author Will Beasley

#' @references See the official documentation for permissible characters in a

#' checkbox label.

#' token       <- "9A81268476645C4E5F03428B8AC3AA7B"

#'

#' ds_metadata <- redcap_metadata_read(redcap_uri=uri, token=token)$data

#'

#' REDCapR::regex_named_captures(pattern=pattern_boxes, text=choices_2)

#' }

#' REDCapR::regex_named_captures(pattern=pattern_boxes, text=choices_3)

#' @export

    )

  }

}

#' @rdname metadata_utilities

# This function isn't used during testing itself.  Just to create the expected file.

save_expected <- function(o, path) {

  # nocov start

  path <- file.path("inst", path)

  if (!dir.exists(dirname(path))) dir.create(dirname(path), recursive = FALSE)

#' @author Will Beasley

#'

#' @seealso

#'

#' @examples

#' REDCapR::create_batch_glossary(100, 50)

#' `httr` package.  See the details below. Optional.

#'

#' @return Currently, a list is returned with the following elements,

#' in the REDCap dataset.

#' * `success`: A boolean value indicating if the operation was apparently

#' successful.

    } else {

      # nocov start

      kernel$success  <- FALSE # Override the 'success' http status code.

      outcome_message <- sprintf(

        "The REDCap variable retrieval failed.  The http status code was %i.  The 'raw_text' returned was '%s'.",

      # nocov end

    }

  } else {

    } else {