#'@title Application Demo
#'
#'@description Function launching the application again
#'
#'@author Marie Bellier, Massimo Finini, Meri Likoska, Vania Rodrigues Telo Ramos, Xavier Renger
#'
#'@return Launch the shiny application to give you the ability to search for animes
#'
#'@import shiny
#'@import shinydashboard
#'@import DT
#'@import dplyr
#'@import tidyverse
#'@import tibble
#'@import stringr
#'@import tidyr
#'
#'
#'@export
anime_finder <- function() {
# globalVariables(c("Duration", "Episodes", "Genders", "Name", "Popularity", "Rating", "Type", "anime",
# "anime_with_ratings", "item_id", "pivot_wider", "rating", "str_detect", "user_id"))
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.