Test Project Data for Ganttify

Source: R/data.R

A sample project dataset for testing and demonstrating the Ganttify package. Contains a complete Work Breakdown Structure (WBS), activities, and custom colors for an example software development project.

test_project

Format

A list with 3 components:

wbs_structure

A data frame with 8 rows and 3 columns:

  • ID: WBS item identifier (W1-W8)

  • Name: WBS item name (e.g., "Project Summary", "Design Phase")

  • Parent: Parent WBS ID or "None" for root items

activities

A data frame with 15 rows and 7 columns:

  • WBS_ID: Associated WBS item identifier

  • Activity_ID: Activity identifier (A1-A15)

  • Activity_Name: Activity name (e.g., "Design UI", "Code Frontend")

  • Start_Date: Planned start date in MM/DD/YYYY format

  • End_Date: Planned end date in MM/DD/YYYY format

  • Start_Date_Actual: Actual start date in MM/DD/YYYY format (some NA for not started)

  • End_Date_Actual: Actual end date in MM/DD/YYYY format (some NA for in-progress)

Includes examples of on-time, delayed, ahead-of-schedule, and in-progress activities.

colors

A named list of 8 colors:

  • Each WBS item (W1-W8) is assigned a custom hex color

Source

Example software development project

Examples

# Load the test data
data(test_project)

# View structure
str(test_project)
#> List of 3
#>  $ wbs_structure:'data.frame':	8 obs. of  3 variables:
#>   ..$ ID    : chr [1:8] "W1" "W2" "W3" "W4" ...
#>   ..$ Name  : chr [1:8] "Project Summary" "Project Details" "Phase 1" "Phase 2" ...
#>   ..$ Parent: chr [1:8] "None" "W1" "W2" "W2" ...
#>  $ activities   :'data.frame':	15 obs. of  7 variables:
#>   ..$ WBS_ID           : chr [1:15] "W5" "W5" "W5" "W6" ...
#>   ..$ Activity_ID      : chr [1:15] "A1" "A2" "A3" "A4" ...
#>   ..$ Activity_Name    : chr [1:15] "Design UI" "Design Architecture" "Design Database" "Code Frontend" ...
#>   ..$ Start_Date       : chr [1:15] "09/09/2024" "09/15/2024" "09/20/2024" "10/01/2024" ...
#>   ..$ End_Date         : chr [1:15] "09/30/2024" "10/05/2024" "09/30/2024" "11/15/2024" ...
#>   ..$ Start_Date_Actual: chr [1:15] "09/09/2024" "09/16/2024" "09/21/2024" "10/01/2024" ...
#>   ..$ End_Date_Actual  : chr [1:15] "09/28/2024" "10/06/2024" "09/29/2024" "11/20/2024" ...
#>  $ colors       :List of 8
#>   ..$ W1: chr "#FF6B6B"
#>   ..$ W2: chr "#4ECDC4"
#>   ..$ W3: chr "#45B7D1"
#>   ..$ W4: chr "#FFA07A"
#>   ..$ W5: chr "#95E1D3"
#>   ..$ W6: chr "#F38181"
#>   ..$ W7: chr "#A8E6CF"
#>   ..$ W8: chr "#FFD3B6"

# Create a Gantt chart
# \donttest{
chart <- Ganttify(
  wbs_structure = test_project$wbs_structure,
  activities = test_project$activities,
  color_config = list(mode = "wbs", wbs = test_project$colors)
)
chart


# }