inst/shiny/GUI/server.R

In unimi-dse/adca2d89: A Toolkit for Analyzing Sentiment of Italian Amazon Reviews

# Define server logic to summarize and view selected dataset ----
server <- function(input, output) {
  # Generate a summary of the dataset ----
  output$summary <- renderPrint({
    #dataset <- datasetInput()
    if (input$amazon_url == "") {
      cat("Please enter the address of the product on amazon.it\nin the given box on sidebar.")
    } else {
      asin = sentimeter::get_asin(input$amazon_url)
      cat(paste("ASIN:", asin))
      cat('\n')
      cat(paste("Number of reviews:", sentimeter::number_of_reviews(asin)))
      sentimeter::sentiment_analysis(sentimeter::scrape_reviews(asin, 1))
    }
  })
}