inst/server.R

In JohnMcIntyreJR/getrecipes: Collating recipes based on ingredient preference

library("shiny")
library("dplyr")
library("purrr")
library("shinyjs")


# text = function(input, output, session) {
#   output$ui = renderUI({
#     textInput("ingredient", "Enter ingredient:", value = "")
#   })
# }



shinyServer(function(input, output) {

  #Defining the reactive values
  rvs = reactiveValues(recipes = NULL, page_message = NULL)

  output$wanted_ingredients = renderUI({
    getrecipes::generate_textboxes(10, TRUE)
  })

  observeEvent(input$number1, {
    getrecipes::show_ui(input$number1, TRUE)
  })

  output$unwanted_ingredients = renderUI({
    getrecipes::generate_textboxes(10, FALSE)
  })

  observeEvent(input$number2, {
    getrecipes::show_ui(input$number2, FALSE)
  })

  observeEvent(input$number1, {
    if (input$number1 >= 2) {
      shinyjs::show("option")
    } else {
      shinyjs::hide("option")
      }
    })


  #Observe event function which causes the code to run when the button
  #is clicked
  observeEvent(input$data, {
    #User inputs assigned to variables
    pages = input$pages
    type = input$type

    #Generating a vector of ingredients
    ingredients = getrecipes::ingredients_vec(input$number1, input, TRUE)
    unwanted_ingredients = getrecipes::ingredients_vec(input$number2, input, FALSE)


    # If statement which depends on whether user wants recipes containing all
    # or at least one of the chosen ingredients

    if (input$number1 < 2) {
      rvs$recipes = getrecipes::get_recipe(type, ingredients, FALSE, unwanted_ingredients, pages)
    } else {
      if (input$option == "All") {
        rvs$recipes = getrecipes::get_recipe(type, ingredients, TRUE, unwanted_ingredients, pages)
        } else {
          rvs$recipes = getrecipes::get_recipe(type, ingredients, FALSE, unwanted_ingredients,
                                               pages)
        }
    }

    #Creating a page count message
    if(is.list(rvs$recipes)) {
      rvs$page_message = "There are no pages matching your search criteria"
    } else {
    rvs$page_message = getrecipes::page_count(rvs$recipes, pages)
    }
    })

  output$table = DT::renderDataTable({
    if(is.data.frame(rvs$recipes)) {
      DT::datatable(rvs$recipes, escape = FALSE)
    }
    })
  output$no_of_pages = renderText({
    rvs$page_message
    })
  })