Collection Info Summary Module

Alternative collection statistics display with a summary box layout. Shows aggregated metrics for a single collection including artwork counts, NFT status, variants, and time/effort statistics.

This module provides a more compact statistics display compared to the inline stats in [modBrowseServer()]. Use when you need a dedicated collection summary panel separate from the browse interface.

Usage

collectionInfoUI(id)

collectionInfoServer(id, r_collect_name, r)

Arguments

id

Character. Shiny namespace ID for the collection info instance.

r_collect_name

Reactive expression returning the collection name (character) to summarize. Typically derived from collection selector.

r

Reactive list from parent app containing:

`r$appdata$artist$artDT`

data.table with artwork metadata including columns: collection_name, is_nft, n_variants, brush_strokes, drawing_hours, start_date, stop_date.

Value

`collectionInfoUI()` returns a `shiny.tag.list` containing a [bslib::card()] with collection header and 8 stats boxes. `collectionInfoServer()` returns NULL (invisible); called for side effects.

Functions

• collectionInfoUI(): Collection info UI component

• collectionInfoServer(): Collection info server logic

See also

* [enhancedStatsUI()] and [enhancedStatsServer()] for the underlying stats boxes * [createCollectionLabelBadge()] for the collection name badge

Other ui-modules: enhancedStats

Examples

if (FALSE) { # \dontrun{
# In UI
collectionInfoUI("collection_summary")

# In server
r_collect_name <- reactive({
  names(r$appdata$artist$collections)[input$collection_idx]
})
collectionInfoServer("collection_summary", r_collect_name, r)
} # }