ADD About

webapp.R

@@ -2,6 +2,9 @@ library(shiny)
 library(leaflet)
 library(ggplot2)
 library(dplyr)
+library(shinyalert)
+library(DT)
+# install.packages("DT")
 
 # Frontend
 ui <- fluidPage(
@@ -22,9 +25,9 @@ ui <- fluidPage(
                        width = "75%"
     ),
     
-      
+    # About
-      
+    useShinyalert(),
-      
+    actionButton("about", "?"),
     
     
     width=3
@@ -52,9 +55,30 @@ ui <- fluidPage(
 # Backend
 server <- function(input, output, session) {
 
-  output$table <- renderDataTable({
+observeEvent(input$about, {
-    merged_df[, !names(merged_df) %in% c("OBS_VALUE.x", "OBS_VALUE.y", "geometry")]
+  # Show a modal when the button is pressed
-  }, options = list(pageLength = 10))
+  shinyalert("About project:", 
+  "Authors: Paweł Lewicki, Patryk Kaszuba\n
+  
+  The aim of the project is to present growth of house prices as index of Purchasing Power Parity (PPP) in countries of European Union. 2015 is a benchmark value (100 for each country).
+  
+  Datasets used:
+  - Eurostat Inflation 2022 - prc_hicp_aind_page_linear
+  - Eurostat House Price Index - prc_hpi_a__custom_3617733_page_linear
+  
+  Libraries used:
+  shiny, leaflet, ggplot2, dplyr, shinyalert, plotly, dplyr, 
+  tidyverse, eurostat, sf, scales, cowplot, ggthemes, RColorBrewer
+  
+  Subject: Data Wizualisation
+  Adam Mickiewicz University, 
+  Poznan, Poland, June 2023"
+  , type = "info")
+})
+
+output$table <- DT::renderDataTable({
+  datatable(merged_df[, !names(merged_df) %in% c("OBS_VALUE.x", "OBS_VALUE.y", "geometry")], options = list(pageLength = 10))
+})
 
 
 # Plot module