1.0.4.89

ShinyWizard/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ShinyWizard
-Title: ShinyWizard - an interactive presentation of any R package
-Version: 1.0.3.36
+Title: An Interactive Presentation of any R Package
+Version: 1.0.4.89
 Authors@R: 
     person("Rafal", "Urniaz", , "rafal.urniaz@cantab.net", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-0192-2165"))

ShinyWizard/R/RunShinyWizzard.R

@@ -1,7 +1,20 @@
-#' Run ShinyWizard app
-#'
-#' @param loc directory to external tabs, project zip file, when NULL run builder
-#' @param devMode when TRUE the developer mode is used. It means all tasks run by separate background jobs thus console is not blocked. It works by R Studio API so works only in R studio. It is mode only for development facilitate. Should not be used for production. 
+#' @title Run ShinyWizard builder or project app
+#' 
+#' @description
+#' Function executes ShinyWizard builder or project when project zip file location is provided.   
+#' 
+#' @param loc external directory to project zip file, when NULL runs builder
+#' @param devMode when TRUE the developer mode is used. It means all tasks run by separate background jobs thus the console is not blocked. It works by R Studio API so works only with R studio. It is mode only for development facilitate. Should not be used for production. 
+#' 
+#' @examples
+#' 
+#' \dontrun{
+#' # Run to execute ShinyWizard builder
+#'   RunShinyWizard()
+#' 
+#' # Run to execute saved project as zip file
+#'   RunShinyWizard("Path-to-project-file") 
+#' }
 #' 
 #' @export
 

ShinyWizard/R/ShinyWizzardTheme.R

@@ -1,9 +1,9 @@
-#' ShinyWizzardTheme
+#' @title ShinyWizzard themes
 #' 
 #' @description
-#' Return dir / show available ShinyWizard templates
+#' Load one of available themes for ShinyWizard project
 #'
-#' @param name the theme name to be applied. None argument provided returns all available themes.
+#' @param name theme name to be applied. No argument returns all available themes.
 #' 
 # @export
 
@@ -23,10 +23,10 @@ ShinyWizzardTheme <- function(name = ""){
    }
 }
 
-#' ShinyWizzardThemeSelector
+#' ShinyWizzard themes selector
 #'
 #' @description
-#' Shiny selector for themes, generate the code 
+#' Shiny selector for themes. It returns a shiny ui code. 
 #' 
 #' @export
 
@@ -69,7 +69,7 @@ ShinyWizzardThemeSelector <- function() {
 
 }
 
-#' allThemes
+#' @title  All available themes
 #'
 #' @description
 #' List all available themes 

ShinyWizard/inst/source/config.yaml

@@ -1,6 +1,6 @@
 # --- App Titles ---
-AppTitle: Shiny Wizard App    # when "" is not displayed !!!
-AppSubTitle: Shiny Wizard App # when "" is not displayed !!!
+AppTitle: Shiny Wizard    # when "" is not displayed !!!
+AppSubTitle: 'NULL' # when "" is not displayed !!!
 # --- CSS style ---
 ShinyWizzardTheme: flatly
 # --- Logo ---

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

@@ -1,11 +1,11 @@
 #' Generate Title Panel
 
 GenTitlePanel <- function(){
-  titlePanel(windowTitle = if (config$AppTitle != ""){ config$AppTitle }else{ "ShinyWizard" },
+  titlePanel(windowTitle = config$AppTitle,
              fluidRow(
                column(11, 
                       tags$div(id = "AppTitle", config$AppTitle), 
-                      tags$h5(id = "AppSubTitle", config$AppSubTitle)), 
+                      tags$h5(id = "AppSubTitle", if (config$AppSubTitle == 'NULL'){paste("Version", packageVersion('ShinyWizard'))}else{config$AppSubTitl}) ), 
                column(1, 
                       img(id ="LogoFilePath", style="height: 60px; wigth:60px; float:right; vertical-align:middle", src = config$LogoFilePath)) 
              ))