final commit

Author: polodealvarado

Data.R

@@ -1,7 +1,8 @@
 
 # BEFORE RUN THE APP, READ PLEASE:
-# This file download the dataset from the world bank database by means of the API
+# This file download the dataset from the world bank database by means of the API 
 
+library(WDI) # World Bank's API
 
 rm(list=ls())
 
@@ -70,7 +71,7 @@ indicators_name <- c("GDP per capita (current US$)",
 #Creating the list with the variables of the dataset.
 
 list <- list()
-pb <- progress_bar$new(format = "Connecting to the World Bank database [:bar] :percent", total = 30)
+pb <- progress_bar$new(format = "Downloading the World Bank database [:bar] :percent", total = 30)
 
 for(i in 1:length(indicators_code)){
   pb$tick()

app.R

@@ -21,7 +21,7 @@ library(markdown)
 library(plotly)
 library(shiny)
 library(tidyverse)
-library(WDI)
+library(WDI) # World Bank's API
 library(wbstats)
 library(progress)
 library(Hmisc)
@@ -39,10 +39,12 @@ library(htmltools)
 
 #BEFORE RUN THE APP, READ PLEASE:
 
-# The script "Data.R" downloads the world bank dataset. However it takes too much time to connect to the database ,this is 
-# because of the data structure. So the "env.Rdata" file is prepared to set the dataset into the environment instantly.  
+# The script "Data.R" downloads the world bank dataset by means of the world bank API. However it takes too much time to download the database,
+# this is  because of the data structure. So the "env.Rdata" file is prepared to set the dataset into the environment instantly.
+# In case of testing the download of the dataset, remove the comment from the following line:
 
 # source("Data.R")
+
 load("env.Rdata")
 
 #-------------
@@ -52,6 +54,7 @@ t    <-    tags$a(href= "https://data.worldbank.org" , tags$img(src="bwlogo.png"
 tgit <-    tags$a("GitHub",href="https://github.com/manugaco/Data_Tidying", tags$img(src="github.png",height=20,width=20))
 uni  <-    tags$a(href= "https://www.uc3m.es/Inicio" , tags$img(src="uc3m.png", heigth = 25, width = 25))
 
+
 # Define UI for application
 ui <- fluidPage(
   theme = shinytheme("superhero"),