11 as dev i would like to wireframe the UI in order to give preview and create engagement

.github/ISSUE_TEMPLATE/bug_report.md

@@ -0,0 +1,30 @@
+---
+name: Bug report
+about: Create a report to help us improve
+title: "[BUG]"
+labels: bug
+assignees: edouard-legoupil
+
+---
+
+**Describe the bug**
+A clear and concise description of what the bug is.
+
+**To Reproduce**
+Steps to reproduce the behavior:
+1. 
+1. ...
+2. ...
+
+**Expected behavior**
+A clear and concise description of what you expected to happen.
+
+**Screenshots**
+If applicable, add screenshots to help explain your problem.
+
+**session info**
+
+please insert here the output of `devtools::session_info()`
+
+**Additional context**
+Add any other context about the problem here.

.github/ISSUE_TEMPLATE/feature_request.md

@@ -0,0 +1,20 @@
+---
+name: Feature request
+about: Suggest an idea for this project
+title: "[FR]"
+labels: enhancement
+assignees: ''
+
+---
+
+**Is your feature request related to a problem? Please describe.**
+A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
+
+**Describe the solution you'd like**
+A clear and concise description of what you want to happen.
+
+**Describe alternatives you've considered**
+A clear and concise description of any alternative solutions or features you've considered.
+
+**Additional context**
+Add any other context or screenshots about the feature request here.

DESCRIPTION

@@ -1,29 +1,32 @@
 Package: surveyDesigner
-Title: An Amazing Shiny App
+Title: A Shiny App to help in the survey integration process
 Version: 0.0.0.9000
 Authors@R: c(
     person("Edouard", "Legoupil", , "[email protected]", role = c("aut", "cre")),
     person("Cervan", "Girard", , "[email protected]", role = "aut")
   )
-Description: What the package does (one paragraph).
+Description: The package offers a series of utilities to help field practionners
+            designing their annual survey cycle.
 License: MIT + file LICENSE
 Imports: 
     config (>= 0.3.1),
-    dplyr,
-    dashboardthemes, 
+    dplyr, 
     shinydashboard,
     golem (>= 0.4.0),
     magrittr,
     purrr,
     R6,
     readxl,
-    shiny (>= 1.7.3)
+    shiny (>= 1.7.3),
+    unhcrshiny
 Suggests: 
     knitr,
     prettydoc,
     rmarkdown,
     spelling,
     testthat (>= 3.0.0)
+Remotes: 
+    edouard-legoupil/unhcrshiny
 VignetteBuilder: 
     knitr
 Config/testthat/edition: 3

R/app_config.R

@@ -1,44 +1,43 @@
-#' Access files in the current app
-#'
+ ## Prewrite the app config ----------
+ #' Access files in the current app
+ #'
 #' NOTE: If you manually change your package name in the DESCRIPTION,
 #' don't forget to change it here too, and in the config file.
 #' For a safer name change mechanism, use the `golem::set_golem_name()` function.
 #'
 #' @param ... character vectors, specifying subdirectory and file(s)
 #' within your package. The default, none, returns the root of the app.
-#'
-#' @noRd
+ #'
+ #' @noRd
 app_sys <- function(...) {
-  system.file(..., package = "surveyDesigner")
+system.file(..., package = "surveyDesigner")
 }
-
-
 #' Read App Config
-#'
+ #'
 #' @param value Value to retrieve from the config file.
 #' @param config GOLEM_CONFIG_ACTIVE value. If unset, R_CONFIG_ACTIVE.
 #' If unset, "default".
 #' @param use_parent Logical, scan the parent directory for config file.
-#' @param file Location of the config file
+ #' @param file Location of the config file
 #'
 #' @noRd
 get_golem_config <- function(
-  value,
-  config = Sys.getenv(
-    "GOLEM_CONFIG_ACTIVE",
-    Sys.getenv(
-      "R_CONFIG_ACTIVE",
-      "default"
-    )
-  ),
-  use_parent = TRUE,
-  # Modify this if your config file is somewhere else
-  file = app_sys("golem-config.yml")
+value,
+config = Sys.getenv(
+"GOLEM_CONFIG_ACTIVE",
+Sys.getenv(
+"R_CONFIG_ACTIVE",
+"default"
+ )
+ ),
+use_parent = TRUE,
+# Modify this if your config file is somewhere else
+ file = app_sys("golem-config.yml")
 ) {
   config::get(
-    value = value,
-    config = config,
+   value = value,
+   config = config,
     file = file,
-    use_parent = use_parent
+   use_parent = use_parent
   )
-}
+ }

R/app_server.R

@@ -1,9 +1,19 @@
-#' The application server-side
+#' Server
+#'
+#' This function is internally used to manage the shinyServer
 #'
-#' @param input,output,session Internal parameters for {shiny}.
-#'     DO NOT REMOVE.
 #' @import shiny
+#' @import shinydashboard
 #' @noRd
+#' @keywords internal
 app_server <- function(input, output, session) {
-  # Your application server logic
+
+  ## add a reactive value object to pass by elements between objects
+  AppReactiveValue <-  reactiveValues()
+  # pins::board_register() # connect to pin board if needed
+  callModule(mod_home_server, "home_ui_1")
+  callModule(mod_context_server, "context_ui_1", AppReactiveValue)
+  callModule(mod_content_server, "content_ui_1", AppReactiveValue)
+  callModule(mod_collection_server, "collection_ui_1", AppReactiveValue)
+  callModule(mod_forms_server, "forms_ui_1", AppReactiveValue)
 }