jakubsob

.get_active_branch <- function() {
  res <- system("git status", intern = TRUE)
  stringr::str_remove(res[1], "On branch ")
}

#' It opens a PR in the repository with the selected template
#'
#' The only way to open a PR with a specific template is to use the query parameters:
#' https://docs.github.com/en/pull-requests/collaborating-with-pull-requests/proposing-changes-to-your-work-with-pull-requests/using-query-parameters-to-create-a-pull-request
.open_pr <- function(

jakubsob

get_prs <- function(repo, owner, base = "dev", state = "closed") {
  query <- list(
    base = base,
    state = state
  )
  query <- paste(purrr::imap_chr(query, \(x, y) paste0(y, "=", x)), collapse = "&")
  prs <- gh::gh(glue::glue("GET /repos/{owner}/{repo}/pulls?{query}"), .limit = Inf)
  prs |>
    purrr::map(\(x) {
      pull_number <- x$number

jakubsob

.test_file <- function(file = NULL, use_parallel = FALSE) {
  if (use_parallel) {
    testthat::with_mocked_bindings(
      devtools::test(filter = file),
      find_parallel = function(...) {
        TRUE
      },
      .package = "testthat"
    )
  }

jakubsob

#' Run callback when all inputs are initialized
#'
#' @param ids A character vector of input ids to check.
#' @param callback A function to run after all inputs are initialized.
#' @param session A Shiny session
#' @importFrom shiny reactiveVal observe getDefaultReactiveDomain
#' @importFrom purrr map reduce
#' @importFrom checkmate test_null
on_inputs_initialized <- function(ids, callback, session = getDefaultReactiveDomain()) {
  initialized_ <- reactiveVal(FALSE)

jakubsob

#' Download the latest snapshot artifacts from the CI and update local snapshots
#' 
#' @details 
#' 
#' This function uses Github API to download the latest snapshot artifacts from the CI and update the local snapshots.
#' 
#' In order for the API to work it needs to be authenticated.
#' 
#' Run the following command in the terminal to authenticate the API:
#' ```

jakubsob

is_ci <- function() {
  isTRUE(as.logical(Sys.getenv("CI")))
}

make_variant <- function(
    platform = shinytest2::platform_variant(),
    data_version = getOption("test_data_version", "simulated")) {
  ci <- if (is_ci()) {
    "ci"
  } else {

jakubsob

#' Report all assertions
#' 
#' @examples
#' with_assertion_collection(
#'   assert_data_frame(df),
#'   assert_numeric(nums),
#'   assert_character(chars)
#' )
with_assert_collection <- function(...) {
  add <- makeAssertCollection()