added data input module from bddwc.app

NAMESPACE

@@ -1,7 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-export(mod_dataInput_server)
-export(mod_dataInput_ui)
 export(mod_dataSummary_server)
 export(mod_dataSummary_ui)
 export(mod_missing_data_server)
@@ -13,6 +11,7 @@ export(mod_taxonomic_ui)
 export(mod_temporal_server)
 export(mod_temporal_ui)
 export(run_app)
+import(bddwc.app)
 import(bdvis)
 import(circlepackeR)
 import(dashboardthemes)

R/app_server.R

@@ -4,15 +4,18 @@ options(shiny.maxRequestSize = 5000 * 1024 ^ 2)
 app_server <- function(input, output, session) {
 
   inputDataset <-
-    callModule(mod_dataInput_server, "dataInput_ui", session)
-
+    callModule(
+      bddwc.app::mod_add_data_server,
+      id = "bdFileInput"
+    )
+
   callModule(mod_dataSummary_server, "dataSummary_ui", inputDataset)
-  
+
   callModule(mod_missing_data_server, "missing_data_ui", inputDataset)
-  
+
   callModule(mod_spatial_server, "spatial_ui", inputDataset)
-  
+
   callModule(mod_taxonomic_server, "taxonomic_ui", inputDataset)
-  
+
   callModule(mod_temporal_server, "temporal_ui", inputDataset)
 }

R/app_ui.R

@@ -17,6 +17,7 @@
 #' @import summarytools
 #' @import leaflet.extras
 #' @import sp
+#' @import bddwc.app
 app_ui <- function() {
   dashboardPage(
     skin = "green",
@@ -70,7 +71,7 @@ app_ui <- function() {
 
         tabItem(tabName = "dataInputTab",
                 # -------------------------------
-                mod_dataInput_ui("dataInput_ui")
+                bddwc.app::mod_add_data_ui("bdFileInput")
                 # -------------------------------
         ),
         tabItem(tabName = "dataSummary",
@@ -114,7 +115,7 @@ app_ui <- function() {
 #' @import shiny
 #Function to attach Files such as css to shiny.
 golem_add_external_resources <- function() {
-  addResourcePath('www', system.file('app/www', package = 'bdvisShiny'))
+  addResourcePath('www', system.file('app/www', package = 'dashboard.demo'))
 
   tags$head(
     golem::activate_js(),