CRAN ready

DESCRIPTION → ShinyWizard/DESCRIPTION

@@ -1,10 +1,10 @@
 Package: ShinyWizard
-Title: ShinyWizard : an interactive presentation of any R package
+Title: ShinyWizard - an interactive presentation of any R package
 Version: 1.0.3.36
 Authors@R: 
     person("Rafal", "Urniaz", , "rafal.urniaz@cantab.net", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-0192-2165"))
-Description: Shiny wizard to build an interactive presentation of any R package 
+Description: Shiny wizard to build an interactive presentation of any R package. 
 License: GPL (>= 3)
 Encoding: UTF-8
 Imports:

R/ShinyWizzardIncludeCSSAndTheme.R → ShinyWizard/R/ShinyWizzardIncludeCSSAndTheme.R

@@ -1,14 +1,12 @@
-#' Run ShinyWizard app
+#' ShinyWizzardIncludeCSSAndTheme
 #'
-#' @param name the theme name to be applied. None argument provided returns all available themes.
-#' 
 # @export
 
 ShinyWizzardIncludeCSSAndTheme <- function(){
 
    if(config$ShinyWizzardTheme != ""){
       includeCSS(ShinyWizzardTheme(config$ShinyWizzardTheme))
-   }else{cat("no tempate")}
+   }else{cat("config$ShinyWizzardTheme is empty!")}
 
 
 }

R/ShinyWizzardTheme.R → ShinyWizard/R/ShinyWizzardTheme.R

@@ -1,3 +1,6 @@
+#' ShinyWizzardTheme
+#' 
+#' @description
 #' Return dir / show available ShinyWizard templates
 #'
 #' @param name the theme name to be applied. None argument provided returns all available themes.
@@ -20,10 +23,10 @@ ShinyWizzardTheme <- function(name = ""){
    }
 }
 
-#' @title ShinyWizzardThemeSelector
+#' ShinyWizzardThemeSelector
 #'
 #' @description
-#' A short description...
+#' Shiny selector for themes, generate the code 
 #' 
 #' @export
 
@@ -66,6 +69,12 @@ ShinyWizzardThemeSelector <- function() {
 
 }
 
+#' allThemes
+#'
+#' @description
+#' List all available themes 
+#' 
+
 allThemes <- function() {
   themes <- dir(system.file("shinythemes/css", package = "shinythemes"),
                 ".+\\.min.css")

ShinyWizard/inst/source/core/server/load_config.yaml.R

@@ -0,0 +1,21 @@
+#' Save config.yaml
+
+load_config.yaml <- function(input, output, session){
+
+  # Save config
+  #  - Load configuration file from Temp Proj Dir
+  temp_config <- yaml::yaml.load_file(paste0(config$TempProjPath,'config.yaml'))
+
+  #  - Update original variables
+
+  shinyjs::alert(paste0(temp_config))
+
+  shinyjs::runjs(paste0("document.getElementById('tab2-AppTitleInput').value = '",temp_config$AppTitle,"'"))
+  shinyjs::runjs(paste0("document.getElementById('tab2-AppSubTitleInput').value = '",temp_config$AppSubTitle,"'"))
+  shinyjs::runjs(paste0("document.getElementById('tab2-LogoFilePathInput').value = '",temp_config$LogoFilePath,"'"))
+  shinyjs::runjs(paste0("document.getElementById('tab2-FooterTextInput').value = '",temp_config$FooterText,"'"))
+  shinyjs::runjs(paste0("document.getElementById('tab2-shinytheme-selector').value = '",temp_config$ShinyWizzardTheme,"'"))
+
+}
+
+

inst/source/core/ui/GenTitlePanel.R → ShinyWizard/inst/source/core/ui/GenTitlePanel.R

@@ -1,7 +1,7 @@
 #' Generate Title Panel
 
 GenTitlePanel <- function(){
-  titlePanel(windowTitle = if (config$AppTitle != ""){ config$AppTitle }else{ "ShinyWizard App" },
+  titlePanel(windowTitle = if (config$AppTitle != ""){ config$AppTitle }else{ "ShinyWizard" },
              fluidRow(
                column(11, 
                       tags$div(id = "AppTitle", config$AppTitle),