app.R

In ptds2021/project--G5: Anime recommendation

library(tidyverse)
library(shiny)
library(shinydashboard)
library(DT)
library(ProjectG5)
library(tibble)
library(stringr)

anime <- tibble::tibble(ProjectG5::anime)

anime_with_ratings <-
  tibble::tibble(ProjectG5::anime_with_ratings)

Gender_list <-
  base::unique(base::as.vector(stringr::str_split(
    stringr::str_c(anime$Genders, collapse = ", "),
    ", "
  )[[1]]))


# Define UI for application that draws a histogram

header <-
  shinydashboard::dashboardHeader(title = "Anime Recommendation")

sidebar <- shinydashboard::dashboardSidebar(
  shinydashboard::sidebarMenu(
    shinydashboard::menuItem("Homepage",
                             tabName = "homepage_tab"),
    shinydashboard::menuItem("I am new",
                             tabName = "newcommer_tab"),
    shinydashboard::menuItem("I am an expert",
                             tabName = "experienced_i_tab"),
    shinydashboard::menuItem("I am a judging expert",
                             tabName = "experienced_u_tab")
  )
)

body <- shinydashboard::dashboardBody(
  shinydashboard::tabItems(
    #Homepage Tab

    shinydashboard::tabItem(
      tabName = "homepage_tab",

      shiny::tags$h1("Welcome to our anime recommendation Application"),
      shiny::tags$h3(
        "This application was done for a project at HEC
                             Lausanne for a master class named
                             'Programming tools'."
      ),
      shiny::tags$h3(
        "Its main aim is to make the user of our
                             application fill in a certain number of boxes in
                             order to offer him the best anime recommendation.
                             Below is a brief summary of how to use it. "
      ),
      shiny::tags$h1("How to proceed ? "),
      shiny::tags$h3(
        "Are you a great expert or are you a novice with
                             no knowledge about anime?"
      ),
      shiny::tags$h3(
        "For the newbies: go to the first tab to have
                             recommendation according to your age, time that you
                             have before you and type that you like."
      ),
      shiny::tags$h3(
        "For experts: go to the next two tabs. The first
                             one will give you anime recommendations according
                             to the anime you have selected beforehand. The
                             second one will give you recommendations according
                             to the scores you have given to several anime
                             selected beforehand."
      )

    ),


    # Newcommer tab

    shinydashboard::tabItem(
      tabName = "newcommer_tab",
      shiny::tags$h1("Newbie search"),
      shiny::tags$h3(
        "In this tab, simply enter your age, your type of
                           interests and how much time you have before you."
      ),
      br(),

      shinydashboard::box(
        background = 'purple',
        shiny::column(
          4,
          shiny::numericInput(
            inputId = "age",
            label = "What is your age?",
            c(1:100),
            value = 20
          )
        ),
        shiny::column(
          4,
          shiny::selectInput(
            inputId = "gender",
            label =  "What type of anime would
                                     you want to see?",
            choices = Gender_list,
            multiple = TRUE,
            selected = "Sports"
          )
        ),
        shiny::column(
          4,
          tags$style(
            HTML(
              ".js-irs-0 .irs-single,
                                 .js-irs-0 .irs-bar-edge,
                                 .js-irs-0 .irs-bar {background: black;
                                 border-top: 1px solid black ;
                                 border-bottom: 1px solid black ;}"
            )
          ),
          shiny::sliderInput(
            inputId = "freetime",
            label = "How much time do you have
                                     before you (in minutes) ?",
            min = 1,
            max = 180,
            value = 30,
            step = 1
          )
        ),
        width = "100%"
      ),

      shinydashboard::box(DT::DTOutput("table_newcommer"), width = "100%")

    ),




    # User based Recommendation tab
    shinydashboard::tabItem(
      tabName = "experienced_u_tab",
      shiny::tags$h1("User based search"),
      shiny::tags$h3(
        "In this tab, you will need to start by selecting
                             one or several anime that you have liked. Then
                             click on 'Generate score boxes'. Once this is done,
                             enter scores between 1 and 10 illustrating how
                             much you liked each anime.
                             Finally, click on run! This will generate the
                             results by searching what other users similar to
                             you liked!"
      ),
      shiny::tags$h3(
        "You can also choose how many results you want by
                             selecting it in the 'N\u00b0 recom' box!"
      ),
      br(),
      shiny::column(
        4,
        shinydashboard::box(
          background = 'purple',
          shiny::column(
            9,
            shiny::selectizeInput(
              inputId = "viewed_u_tab",
              label = "Anime selection",
              choices = NULL ,
              multiple = TRUE
            ),
          ),
          shiny::column(
            3,
            shiny::selectInput(
              inputId = "n_recomm_1",
              label = "N\u00b0 recom",
              choices = c(5,
                          10,
                          15,
                          20,
                          25)
            )
          ),
          shiny::actionButton(inputId = "submit_1",
                              label = "Generate score boxes"),
          width = "100%"
        ),
        shinydashboard::box(
          background = 'purple',
          shiny::uiOutput("anime_exp_users_score"),
          shiny::actionButton(inputId = "run_1",
                              label = "Run"),
          width = "100%"
        )
      ),
      shiny::column(
        8,
        shinydashboard::box(
          width = "100%",
          shiny::tags$h3("Results"),
          DT::DTOutput("recom_user_based")
        )
      ),

    ),


    # Item based Recommendation tab


    shinydashboard::tabItem(
      tabName = "experienced_i_tab",
      shiny::tags$h1("Item Based search"),
      shiny::tags$h3(
        "In this tab, simply select one anime you have liked
                            and then click on run to get a result! It is
                            generated through comparison of item scores from
                            users."
      ),
      shiny::tags$h3(
        "You can also choose how many results you want by
                             selecting it in the 'N\u00b0 recom' box!"
      ),
      br(),
      shiny::column(
        4,
        shinydashboard::box(
          background = 'purple',
          shiny::column(
            9,
            shiny::selectizeInput(
              inputId = "viewed_i_tab",
              label = "Select one anime",
              choices = NULL ,
              multiple = FALSE
            ),
            shiny::actionButton(inputId = "run_2",
                                label = "Run")
          ),
          shiny::column(
            3,
            shiny::selectInput(
              inputId = "n_recomm_2",
              label = "N\u00b0 recom",
              choices = c(5,
                          10,
                          15,
                          20,
                          25),
            )
          ),
          width = "100%"
        )
      ),
      shiny::column(
        8,
        shinydashboard::box(
          width = "100%",
          shiny::tags$h3("Results"),
          DT::DTOutput("recom_item_based")
        )
      ),

    )
  )

)

ui <- shinydashboard::dashboardPage(skin = 'purple',
                                    header,
                                    sidebar,
                                    body)


server <- shiny::shinyServer(
  function(input, output, session) {
    #Newcommer tab
    table_newcommer_temp <- shiny::reactive({
      ProjectG5::newcommer_recom(anime, input$age, input$gender, input$freetime)
    })

    output$table_newcommer <- DT::renderDT(server = FALSE, {
      DT::datatable(table_newcommer_temp())
    })




    #User based recommendation tab
    shiny::updateSelectizeInput(
      session,
      'viewed_u_tab',
      selected = "",
      choices = anime$Name,
      server = TRUE
    )

    nb_of_anime <- shiny::reactive({
      ProjectG5::selectize_count(input$viewed_u_tab)
    })
    anime_names <- shiny::reactive({
      ProjectG5::selectize_names(input$viewed_u_tab)
    })

    anime_test <- shiny::eventReactive(input$submit_1, {
      ProjectG5::create_numeric_input(anime_names(),
                                      nb_of_anime(),
                                      id = "score_viewed")
    })

    output$anime_exp_users_score <- shiny::renderUI({
      anime_test()
    })

    all_grades <- shiny::reactive({
      ProjectG5::score_recovery(nb_of_anime(), input, id = "score_viewed")
    })

    anime_selected_table <- shiny::reactive({
      temp_tibble <-
        tibble::tibble(Name = anime_names(), rating = all_grades())

      anime_selected <- dplyr::left_join(anime,
                                         temp_tibble,
                                         by = c("Name" = "Name")) %>%
        filter(Name %in% anime_names()) %>%
        mutate(user_id = 999999999)
    })


    user_item_u <- shiny::reactive({
      item = user_item_matrix(data = anime_with_ratings,
                              adding_row = TRUE,
                              row_data = anime_selected_table())
    })

    user_recommendation = shiny::eventReactive(input$run_1, {
      ProjectG5::user_based_recom(
        999999999,
        user_item_u() ,
        anime_with_ratings,
        as.integer(input$n_recomm_1),
        1,
        10
      )

    })


    output$recom_user_based <- DT::renderDT(user_recommendation())



    #Item based recommendation tab
    shiny::updateSelectizeInput(
      session,
      'viewed_i_tab',
      selected = "",
      choices = anime$Name,
      server = TRUE
    )


    user_item_i <- shiny::reactive({
      item <-  ProjectG5::user_item_matrix()
    })

    item_recommendation_otp = shiny::eventReactive(input$run_2, {
      ProjectG5::item_recommendation(input$viewed_i_tab,
                                     user_item_i(),
                                     as.integer(input$n_recomm_2),
                                     anime)

    })

    output$recom_item_based <-
      DT::renderDT(item_recommendation_otp())




})

shiny::shinyApp(ui = ui, server = server)