R/get_seed.R

In Plant-Functional-Trait-Course/PFTCFunctions: Functions for PFTC Data

#' get seed from prompt
#'
#' @param seed integer Default value for seed
#' @returns Integer to use as seed
#' @importFrom glue glue
#' @export


get_seed <- function(seed) {
  finished <- FALSE
  while (!finished) {
    new_seed <- readline(glue("seed is {seed}\n Type integer to change or leave blank to accept"))
    if (new_seed == "") {
      finished <- TRUE
    } else if (!grepl("^\\d+$", new_seed)) {
      finished <- FALSE
      cat(glue("seed must be an integer, not '{new_seed}\n'"))
    } else {
      cat("\n")
      seed <- as.integer(new_seed)
      finished <- FALSE
    }
  }
  seed
}


#' get prefix from prompt
#'
#' @param prefix character Default value for prefix
#' @returns Character to use as prefix
#' @importFrom glue glue
#' @export


get_prefix <- function(prefix = "") {
  finished <- FALSE
  while (!finished) {
    blank <- ifelse(prefix == "", "(no prefix)", "")
    new_prefix <- readline(glue("Prefix for leaf codes is is '{prefix}' {blank}\n Type characters to change or leave blank to accept"))
    if (new_prefix == "") {
      finished <- TRUE
    } else {
      cat("\n")
      prefix <- new_prefix
      finished <- FALSE
    }
  }
  prefix
}