R/CreateAppPackageFromProjectCreation.R

In BioPharmSoftGrp/BaSS: PREP - Packages fRom tEmPlates

#################################################################################################### .
#   Program/Function Name:
#   Author: Author Name
#   Description: Add Description
#   Change History:
#   Last Modified Date: 10/01/2020
#################################################################################################### .
#' @name CreateAppPackageFromProjectCreation
#' @title CreateAppPackageFromProjectCreation
#' @description { Description: This function is intended to be called from the R Studio Project creation widgit, not a user.   }
#' @param path The path that consists of the directory and last folder which is considered the project folder and project name.
#' @export
CreateAppPackageFromProjectCreation <- function( path, ... )
{

    # From the R Studio widget the path will have the last folder as the project name that we want to use so need to pull it off and make the
    # last folder the project name.
    lInfo              <- GetDirectoryAndName( path )
    lArgs              <- list( ... )
    lArgs$strDirectory <- lInfo$strPath
    lArgs$strName      <- lInfo$strName


    if( lArgs$bSimulationMod )
    {
        lArgs$vModuleIDs <- c( "Home", "Simulation", "Feedback", "Options" )

    }
    else
    {
        lArgs$vModuleIDs <- c( "Home", "Feedback", "Options" )
    }
    lArgs$bSimulationMod <- NULL
    do.call( CreateAppPackage, lArgs )

}