launch_app.R

# DQAgui - A graphical user interface (GUI) to the functions implemented in the R package 'DQAstats'.
# Copyright (C) 2019 Universitätsklinikum Erlangen
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

#' @title Launch the DQA graphical user interface (GUI)
#'
#' @param port The port, the MIRACUM DQA Tool is running on (default: 3838)
#' @param utilspath The path to the utilities-folder, containing the metadata repository files (`mdr.csv` inside the folder `MDR`),
#'   JSON files with SQL statements (inside the folder `SQL`), config files for the database connection (`settings_default.yml`)
#'   and the email address used for the data map (`email.yml`), a JSON file containing site names (inside the folder `MISC`) and a
#'   markdown templated to create the PDF report (`DQA_report.Rmd` inside the folder `RMD`).
#' @param db_source The name of the source database. Currently, the only allowed argument is `p21csv` used for the import of the
#'   corresponding csv files.
#'
#' @return DQAgui Shiny application
#'
#' @import shiny shinydashboard
#' @importFrom magrittr "%>%"
#' @importFrom data.table .N ":="
#'
#' @export
#'

launchApp <- function(port=3838, utilspath, db_source){
  options(shiny.port = port)
  assign("utilspath", utilspath, envir = .GlobalEnv)
  assign("db_source", db_source, envir = .GlobalEnv)
  shiny::shinyAppDir(appDir = system.file("application", package = "DQAgui"))
}

# debugging
# launchApp(utilspath = DQAstats::cleanPathName_(system.file("application/_utilities", package = "miRacumDQA")), db_source = "p21csv")