console_menu {consolechoice}

Prints out a menu from a character vector and waits for user selection

Description

Prints out a menu from a character vector and waits for user selection

Usage

console_menu(
  chr_vector,
  instruction_msg = "Type the number in the console your choice and press enter: ",
  quit_key = "q",
  quit_message = paste0("To quit please type ", quit_key, " and press return."),
  return_number = TRUE,
  test_args = list(test_mode = FALSE, test_input = NA_character_)
)

Arguments

chr_vector

character vector.

instruction_msg

character. Message shows under the menu selection

quit_key

character. Character value for the user to quit the menu

quit_message

character. Character value to explain how to quit the menu

return_number

logical. TRUE return number choice. FALSE returns the index of chr_vector

test_args

list(test_mode logical, test_input character). Only use for testing.

Value

character

Examples

## Not run: 
console_menu(c("Eat", "sleep", "code", "repeat"))

console_menu(c("Eat", "sleep", "code", "repeat"),
             "What would you like to do?",
             "quit",
             "Type quit to exit")

# Example code on how the function could be used
user_choice <- console_menu(c("Eat", "sleep"))

switch_result <- switch(
    user_choice,
    "1" = # code here,
    "2" = # code here,
    "q" = # exit code here
)
# Example code if the function returned the name in the character vector
user_choice <- console_menu(c("Eat", "sleep"), return_number = FALSE)

switch_result <- switch(
    user_choice,
    "Eat" = # code here,
    "sleep" = # code here,
    "q" = # exit code here
)

## End(Not run)