Updated database handeling and renaming

igemsoftware2020 · Oct 23, 2020 · f85c647 · f85c647
1 parent f35704c
commit f85c647
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
-Package: MODifieRWeb
-Title: Web MODifieR
+Package: ClusteRsy
+Title: ClusteRsy
 Version: 0.0.0.9000
 Authors@R: person('AUTHOR_FIRST', 'AUTHOR_LAST', email = '[email protected]', role = c('cre', 'aut'))
 Description: Shiny interface to MODifieR.

diff --git a/R/app_server.R b/R/app_server.R
@@ -7,7 +7,7 @@
 app_server <- function( input, output, session) {
   app_servr <- reactiveValues()
   # Loading screen
-  con <- MODifieRDB::connect_to_db("./data_example/modeling_new_db.db")
+  con <- MODifieRDB::connect_to_db(db)
   app_servr$loaded <- con
 
   # Listen to the beautiful button

diff --git a/R/run_app.R b/R/run_app.R
@@ -5,9 +5,12 @@
 #' @export
 #' @importFrom shiny shinyApp
 #' @importFrom golem with_golem_options
-run_app <- function(
-  ...
-) {
+run_app <- function(db = NULL,...){ 
+  if (is.null(db)){
+  db <- system.file("database", "igem.db", package = "ClusteRsy")  
+  }
+  db <<- db
+
   with_golem_options(
     app = shinyApp(
       ui = app_ui,