more updates

Author: jasdumas

.github/workflows/deploy-tools.yaml

@@ -66,6 +66,16 @@ jobs:
             file.copy("assets", "docs", recursive = TRUE)
           }
           
+          # Copy shared www directory to each app for Shinylive
+          if(dir.exists("www")) {
+            if(dir.exists("docs/donor-retention-calculator")) {
+              file.copy("www", "docs/donor-retention-calculator", recursive = TRUE)
+            }
+            if(dir.exists("docs/board-packet-generator")) {
+              file.copy("www", "docs/board-packet-generator", recursive = TRUE)
+            }
+          }
+          
           # Copy style guide if it exists
           if(file.exists("style-guide.html")) {
             file.copy("style-guide.html", "docs/style-guide.html")

board-packet-generator/app.R

@@ -21,8 +21,12 @@ corporate_colors <- list(
   muted = "#7f8c8d"
 )
 
-# Use shared CSS file
-addResourcePath("www", "../www")
+# Use shared CSS file - handle both local and shinylive paths
+if (file.exists("../www")) {
+  addResourcePath("www", "../www")
+} else if (file.exists("www")) {
+  addResourcePath("www", "www")
+}
 
 # Custom theme
 professional_theme <- bs_theme(
@@ -290,11 +294,11 @@ ui <- fluidPage(
                 p(class = "metric-value", textOutput("page_estimate", inline = TRUE), " pages estimated")
               ),
 
-              downloadButton(
+              actionButton(
                 "generate_packet",
-                "Generate HTML Report",
+                "Generate Board Packet",
                 class = "btn btn-primary btn-lg w-100 mb-3",
-                icon = icon("download")
+                icon = icon("file-text")
               ),
 
               actionButton(
@@ -550,34 +554,46 @@ server <- function(input, output, session) {
     as.character(base_pages)
   })
 
-  # Generate board packet download
-  output$generate_packet <- downloadHandler(
-    filename = function() {
-      paste0("Board_Packet_", format(input$meeting_date, "%Y%m%d"), ".html")
-    },
-    content = function(file) {
-      # Generate HTML report
-      html_content <- generate_board_packet_html(
-        meeting_title = input$meeting_title,
-        meeting_date = input$meeting_date,
-        meeting_time = input$meeting_time,
-        meeting_location = input$meeting_location,
-        components = input$components,
-        agenda_data = agenda_items(),
-        financial_data = values$financial_data,
-        include_watermark = input$include_watermark,
-        include_toc = input$include_toc
+  # Generate board packet (Shinylive-compatible)
+  observeEvent(input$generate_packet, {
+    # Generate HTML report
+    html_content <- generate_board_packet_html(
+      meeting_title = input$meeting_title,
+      meeting_date = input$meeting_date,
+      meeting_time = input$meeting_time,
+      meeting_location = input$meeting_location,
+      components = input$components,
+      agenda_data = agenda_items(),
+      financial_data = values$financial_data,
+      include_watermark = input$include_watermark,
+      include_toc = input$include_toc
+    )
+    
+    # Show generated HTML in a modal (Shinylive-compatible)
+    showModal(modalDialog(
+      title = "Board Packet Generated",
+      size = "xl",
+      div(
+        style = "max-height: 500px; overflow-y: auto; border: 1px solid #ddd; padding: 1rem;",
+        HTML(html_content)
+      ),
+      footer = tagList(
+        p(class = "text-muted", 
+          "Copy the content above or use your browser's print function to save as PDF."),
+        modalButton("Close")
       )
-      
-      writeLines(html_content, file)
-      
-      # Show completion notification
-      showNotification("Board packet generated successfully!", type = "message", duration = 5)
-      
-      # Update step 3 to completed
+    ))
+    
+    # Show completion notification
+    showNotification("Board packet generated successfully!", type = "message", duration = 5)
+    
+    # Update step 3 to completed
+    tryCatch({
       shinyjs::runjs("$('#step3').addClass('completed').removeClass('active');")
-    }
-  )
+    }, error = function(e) {
+      # Silently handle if shinyjs fails
+    })
+  })
 
   # Email preview modal
   observeEvent(input$email_preview, {

board-packet-generator/www/README.md

@@ -0,0 +1,58 @@
+# Shared Styles for Nonprofit Analytics Tools
+
+This directory contains shared CSS and assets used across all tools in the nonprofit analytics suite.
+
+## Files
+
+- `shared-styles.css` - Common styles used by all tools to ensure consistent branding and user experience
+
+## Usage
+
+Each tool app should include the shared styles using:
+
+```r
+# Add at the top of your app.R file
+addResourcePath("www", "../www")
+
+# In your UI tagList
+ui <- tagList(
+  tags$head(tags$link(rel="stylesheet", type="text/css", href="www/shared-styles.css")),
+  # ... rest of your UI
+)
+```
+
+## Design System
+
+The shared CSS implements a consistent design system with:
+
+### Brand Colors
+- **Primary Gradient**: #F9B397, #D68A93, #AD92B1, #B07891
+- **Text**: #2c3e50 (dark gray)
+- **Accent**: #d68a93 (brand pink)
+
+### Components
+- **Animated Navbar**: Gradient animation with consistent nav styling
+- **Value Boxes**: Outlined style with brand color borders (red, orange, yellow, green)
+- **Cards**: Clean design with subtle shadows and hover effects
+- **Buttons**: Professional styling with gradient primary buttons
+- **Tables**: Professional DataTables styling with consistent headers
+
+### Features
+- Fully responsive design
+- Consistent typography
+- Loading animations
+- Drag and drop table styling
+- Footer styling matching the brand
+
+## Adding New Styles
+
+When adding styles for new components:
+
+1. Add component-specific styles to the appropriate section
+2. Use the existing color variables and design patterns
+3. Ensure mobile responsiveness
+4. Test across all tools to ensure no conflicts
+
+## Browser Support
+
+The CSS is designed to work across modern browsers and includes fallbacks for older browsers where needed.