tests/testthat/_snaps/utils.md

In delma: Convert 'R Markdown' and 'Quarto' Documents to Ecological Metadata Language

cli_menu() basic usage

Code
  cli_menu_with_mock(1)
Message
  Found multiple thingies.
  Which one do you want to use?
  1: label a
  2: label b
  3: label c
  Selection: 1
Output
  [1] 1

cli_menu() does not infinite loop with invalid mocked input

Code
  cli_menu_with_mock("nope")
Condition
  Error in `glue()`:
  ! could not find function "glue"

cli_menu() can work through multiple valid mocked inputs

Code
  out <- cli_menu_with_mock(c(1, 3))
Message
  Found multiple thingies.
  Which one do you want to use?
  1: label 1
  2: label 2
  3: label 3
  Selection: 1
  Found multiple thingies.
  Which one do you want to use?
  1: label 1
  2: label 2
  3: label 3
  Selection: 3

cli_menu(), request exit via 0

Code
  cli_menu_with_mock(0)
Condition
  Error in `glue()`:
  ! could not find function "glue"

cli_menu(exit =) works

Code
  cli_menu_with_mock(1)
Message
  Hey we need to talk.
  What do you want to do?
  1: Give up
  2: Some other thing
  Selection: 1
Condition
  Error:
  ! Exiting...

Code
  cli_menu_with_mock(2)
Message
  Hey we need to talk.
  What do you want to do?
  1: Give up
  2: Some other thing
  Selection: 2
Output
  [1] 2

delma documentation built on June 8, 2025, 1:56 p.m.