Flyttet app fra inst-mappe til R-mappe

Closes #23

DESCRIPTION

@@ -20,14 +20,13 @@ Imports:
   magrittr,
   rapbase,
   rmarkdown,
-  shiny,
-  shinyalert
+  shiny
 Remotes:
   Rapporteket/rapbase
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.1.1
+RoxygenNote: 7.2.3
 URL: http://github.com/Rapporteket/rapRegTemplate
 BugReports: http://github.com/Rapporteket/rapRegTemplate/issues
 Suggests: 

NAMESPACE

@@ -3,3 +3,4 @@
 export(getFakeRegData)
 export(getRegData)
 export(makeHist)
+export(run_app)

inst/shinyApps/app1/server.R → R/app_server.R

@@ -1,8 +1,7 @@
 library(shiny)
 library(magrittr)
-library(rapRegTemplate)
 
-server <- function(input, output, session) {
+app_server <- function(input, output, session) {
 
   # Last inn data
   # regData <- getFakeRegData()

inst/shinyApps/app1/ui.R → R/app_ui.R

@@ -1,11 +1,10 @@
 library(shiny)
-library(shinyalert)
 library(rapbase)
 
 addResourcePath("rap", system.file("www", package = "rapbase"))
 regTitle <- "rapRegTemplate"
 
-ui <- shiny::tagList(
+app_ui <- shiny::tagList(
   shiny::navbarPage(
     title = div(a(includeHTML(system.file("www/logo.svg",
                                           package = "rapbase"))),
@@ -17,7 +16,6 @@ ui <- shiny::tagList(
     shiny::tabPanel("Veiledning",
       shiny::mainPanel(width = 12,
         shiny::htmlOutput("veiledning", inline = TRUE),
-        shinyalert::useShinyalert(),
         rapbase::appNavbarUserWidget(
           user = uiOutput("appUserName"),
           organization = uiOutput("appOrgName"),

R/run_app.R

@@ -0,0 +1,8 @@
+#' Run the imongr Shiny Application
+#'
+#' @return An object representeing the imongr app
+#' @export
+
+run_app <- function() {
+  shiny::shinyApp(ui = app_ui, server = app_server)
+}

tests/testthat.R

@@ -1,4 +1,3 @@
 library(testthat)
-library(rapRegTemplate)
 
 test_check("rapRegTemplate")