Add code to "Update data" button.

The same as for init db

.gitignore

@@ -7,5 +7,4 @@
 # data files
 data
 info
-rsconnect
-
+rsconnect
\ No newline at end of file

app.R

@@ -379,14 +379,54 @@ server <- function(input, output, session) {
   
   # Load
   observeEvent(input$btn_load_db, {
-    # 1. do it
-    load_web_db()
-    # todo: remove copy/paste
-    df_entity <- read_df("wp_esi_entity")
-    df_tag <- read_df("wp_esi_tag")
-    df_tag_entity <- read_df("wp_esi_tag_entity")
-    df_investment <- read_df("wp_esi_investment")
     
+    # 1. Load data from web
+    # --
+    
+    library(RMySQL)
+    
+    # Connect db
+    db <-  dbConnect(MySQL(), user='analyst', password='exa_analyst1&',
+                     dbname='esi_management',
+                     host='lecanaldb.c12hbxfn3xzn.eu-west-1.rds.amazonaws.com',
+                     port=3306)
+    
+    
+    # Delete directory for temp files if exists
+    if(dir.exists(path_temp_files)){
+      unlink(path_temp_files, recursive = TRUE, force = TRUE)  
+    }
+    
+    # Create new directory
+    dir.create(path_temp_files)
+    
+    # Load tables
+    # main tables
+    df_entity <- db_table_load(db, "wp_esi_entity")
+    df_investment <- db_table_load(db, "wp_esi_investment")
+    df_technology <- db_table_load(db, "wp_esi_technology")
+    df_industry <- db_table_load(db, "wp_esi_industry")
+    df_function <- db_table_load(db, "wp_esi_function")
+    df_media <- db_table_load(db, "wp_esi_media")
+    df_region <- db_table_load(db, "wp_esi_region")
+    df_type <- db_table_load(db, "wp_esi_type")
+    df_news <- db_table_load(db, "wp_esi_news")
+    df_tag <- db_table_load(db, "wp_esi_tag")
+    
+    # tags cross-tables
+    df_tag_entity <- db_table_load(db, "wp_esi_tag_entity")
+    df_tag_news <- db_table_load(db, "wp_esi_tag_news")
+    
+    # news cross-tables
+    df_news_entity <- db_table_load(db, "wp_esi_news_entity")
+    
+    # Disconnect
+    dbDisconnect(db)
+    
+    # Packages management
+    detach("package:RMySQL", unload=TRUE)
+    library(sqldf)
+
     # 3. show message
     output$txt_process <- renderUI({
       HTML("Database updated")