[FIX] - modal removal bug with shinyjs

R/data_importation_server.R

@@ -60,6 +60,7 @@ data_importation_server<- function(input, output, session){
         )
       }
     )
+    removeModal()
   })
 
   # creation of a persistent object for the input dataframe
@@ -102,6 +103,7 @@ data_importation_server<- function(input, output, session){
       updateSelectInput(session, "batch_col", choices = colnames(sample_df))
       updateSelectInput(session, "channel_col", choices = colnames(sample_df))
     }
+    removeModal()
   })
   # creation of a persistent object for the sample dataframe
   sample_df <- eventReactive(input$import_sample,

R/utils.R

@@ -32,7 +32,6 @@ file_to_df<- function(file_upload,
                header = TRUE,
                row.names = 1)
     showNotification("File import succeed !")
-    removeModal()
     return(table)
     },
     error = function(err) {

README.md

@@ -1,4 +1,4 @@
-# scpGui
+# scpGUI
 
 `scpGUI` is a graphical interface for the scp package.
 Currently the app can be used to convert two separate tables (Input and Sample) into a QFeatures object.
@@ -10,8 +10,9 @@ Get the package:
 
 ```r
 # Check if remotes is installed. Otherwise install it.
-if (!require("remotes", quietly = TRUE))
+if (!require("remotes", quietly = TRUE)){
     install.packages("remotes")
+  }
 # Install the package
 remotes::install_github("leopoldguyot/scpGUI")
 # Load the package