R/generate_textboxes.R

In JohnMcIntyreJR/getrecipes: Collating recipes based on ingredient preference

#' Generating shiny textboxes
#'
#' The idea behind this function is to dynamically create a certain amount
#' of shiny UI textboxes based on the number of ingredients the user wants
#' to filter their search results by
#'
#' @param no_of_ingredients Number of ingredients selected by the user
#' @param wanted Logical element dependent on whether the vectot of ingredients
#' are wanted or unwanted ingredients
#' @importFrom shinyjs hidden
#' @importFrom shiny textInput
#' @export
generate_textboxes = function(no_of_ingredients, wanted) {
  if (no_of_ingredients > 0) {
    lapply(1:no_of_ingredients, function(i) {
      if (wanted == TRUE) {
        input_id = paste0("wanted_ingredient", i)
      } else {
        input_id = paste0("unwanted_ingredient", i)
      }
      shinyjs::hidden(
      shiny::textInput(inputId = input_id,
                       label = paste0("Ingredient ",
                                      i))
      )
    })
  }
}