R/mod_reviews.R

In alberto-mateos-mo/amzreviewer: Amazon Reviews Analyser

#' reviews UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_reviews_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinymaterial::material_row(
      shinymaterial::material_column(
        width = 3,
        shinymaterial::material_card(
          title = "",
          color = "#d6826b",
          tags$p("Select Locale"),
          shinymaterial::material_dropdown(input_id = ns("locale"), "", choices = c("Amazon MX" = "mx", "Amazon US" = "us"))
        ),
        shinymaterial::material_card(
          title = "",
          tags$p("Paste Amazon Product Link"),
          shinymaterial::material_text_box(input_id = ns("code"), "", icon = "link"),
          tags$p("Enter number of pages to scrape"),
          shinymaterial::material_number_box(input_id = ns("pages"), "", min_value = 1, max_value = 100, initial_value = 10),
          actionButton(ns("go"), "Analyse!")
        )
      ),
      shinymaterial::material_column(
        width = 9,
        shinymaterial::material_card(
          shinyglide::glide(
            shinyglide::screen(label = "Adjectives mentioned in reviews:", shinycssloaders::withSpinner(plotOutput(ns("adjs")), type = 6, color = "#167864")),
            shinyglide::screen(label = "Keywords found in reviews:", shinycssloaders::withSpinner(plotOutput(ns("keyw")), type = 6, color = "#167864"))
          )
        )
      )
    )
  )
}
    
#' reviews Server Function
#'
#' @noRd 
mod_reviews_server <- function(input, output, session){
  ns <- session$ns
  
  x <- eventReactive(input$go, {
    code <- get_product_code(input$code)
    opiniones <- get_reviews(code, input$pages, input$locale)
    x <- udpipe_process(opiniones, input$locale)
    return(x)
  })
  
  output$adjs <- renderPlot({
    adj_stats <- x() %>%
      dplyr::filter(upos == "ADJ")
    
    adj_stats <- udpipe::txt_freq(adj_stats$lemma)
    
    ggplot2::ggplot(adj_stats, ggplot2::aes(label = key, size = freq_pct), colour = "#020200")+
      ggwordcloud::geom_text_wordcloud(shape = "square")+
      ggplot2::scale_size(range = c(1, 15))+
      ggplot2::theme_minimal()
  })
  
  output$keyw <- renderPlot({
    rake_stats <- udpipe::keywords_rake(x(), term = "lemma", group = "doc_id", relevant = x()$upos %in% c("NOUN", "ADJ"))
    
    ggplot2::ggplot(rake_stats, ggplot2::aes(label = keyword, size = rake*freq))+
      ggwordcloud::geom_text_wordcloud(shape = "square")+
      ggplot2::scale_size(range = c(1, 15))+
      ggplot2::theme_minimal()
  })
  
}
    
## To be copied in the UI
# mod_reviews_ui("reviews_ui_1")
    
## To be copied in the server
# callModule(mod_reviews_server, "reviews_ui_1")