算法艺术创作
algorithmic-art
通过代码和可调参数创作生成艺术与交互式视觉效果。
generate-workflow-diagram【设计与创意】Generate themed Mermaid flowchart diagrams from putior workflow data. Covers theme selection (9 themes including 4 colorblind-safe), output modes (console, file, clipboard, raw), interactive features (clickable nodes, source info), and embedding in README, Quarto, and R Markdown. Use after annotating source files and ready to produce a visual diagram…
独立 GitHub 快照 · 自动分类 · 以原作者文档为准
自 putior 工作流程資料生帶主題之 Mermaid 流程圖並嵌於文件。
put()、put_auto() 或 put_merge() 之工作流程資料"light";選項:light、dark、auto、minimal、github、viridis、magma、plasma、cividis)show_source_info、enable_clicks自三源之一取工作流程資料。
library(putior)
# From manual annotations
workflow <- put("./src/")
# From manual annotations, excluding specific files
workflow <- put("./src/", exclude = c("build-workflow\\.Rquot;, "test_"))
# From auto-detection only
workflow <- put_auto("./src/")
# From merged (manual + auto)
workflow <- put_merge("./src/", merge_strategy = "supplement")
工作流程資料框可含自註解而來之 node_type 欄。節點類型控 Mermaid 形狀:
node_type | Mermaid 形狀 | 用例 |
|---|---|---|
"input" | 體育場 ([...]) | 資料源、配置檔 |
"output" | 子程序 [[...]] | 生成工件、報告 |
"process" | 矩形 [...] | 處理步驟(預設) |
"decision" | 菱形 {...} | 條件邏輯、分支 |
"start" / "end" | 體育場 ([...]) | 入/終節點 |
每 node_type 亦得對應 CSS 類(如 class nodeId input;)以供主題式樣設。
預期: 資料框至少一列,含 id、label 及可選 input、output、source_file、node_type 欄。
失敗時: 若資料框空,則無註解或模式得。先執行 analyze-codebase-workflow,或以 put("./src/", validate = TRUE) 核註解語法有效。
擇合目標讀者之主題。
列所有可用主題:
get_diagram_themes()
標準主題
色盲安全主題(viridis 家族)
附加參數:
direction:圖流向——"TD"(上下,預設)、"LR"(左右)、"RL"、"BT"show_artifacts:TRUE/FALSE——示工件節點(檔、資料);大工作流程可吵(如十六加附加節點)show_workflow_boundaries:TRUE/FALSE——於 Mermaid 子圖中包每源檔之節點source_info_style:源檔資訊於節點上之顯示法(如副標)node_labels:節點標籤文字之格式預期: 主題名印出。依情境擇一。
失敗時: 若主題名未識,put_diagram() 退至 "light"。核拼字。
put_theme() 自訂調色盤(選擇性)若九內建主題不配專案調色盤,以 put_theme() 建自訂主題。
# Create custom palette — unspecified types inherit from base theme
cyberpunk <- put_theme(
base = "dark",
input = c(fill = "#1a1a2e", stroke = "#00ff88", color = "#00ff88"),
process = c(fill = "#16213e", stroke = "#44ddff", color = "#44ddff"),
output = c(fill = "#0f3460", stroke = "#ff3366", color = "#ff3366"),
decision = c(fill = "#1a1a2e", stroke = "#ffaa33", color = "#ffaa33")
)
# Use the palette parameter (overrides theme when provided)
mermaid_content <- put_diagram(workflow, palette = cyberpunk, output = "raw")
writeLines(mermaid_content, "workflow.mmd")
put_theme() 接受 input、process、output、decision、artifact、start、end 節點類型。各取具名向量 c(fill = "#hex", stroke = "#hex", color = "#hex")。未設類型繼承自 base 主題。
預期: Mermaid 輸出含自訂 classDef 行。自 node_type 之節點形狀保留;僅色變。所有節點類型用 stroke-width:2px——put_theme() 目前不支援覆寫。
失敗時: 若調色盤物件非 putior_theme 類,put_diagram() 引描述性錯。確傳 put_theme() 之返回值,非原始列表。
退路——手動 classDef 替換: 為超越 put_theme() 之細粒度控制(如每類型筆寬),以基主題生成並手動替換 classDef 行:
mermaid_content <- put_diagram(workflow, theme = "dark", output = "raw")
lines <- strsplit(mermaid_content, "\n")[[1]]
lines <- lines[!grepl("^\\s*classDef ", lines)]
custom_defs <- c(" classDef input fill:#1a1a2e,stroke:#00ff88,stroke-width:3px,color:#00ff88")
mermaid_content <- paste(c(lines, custom_defs), collapse = "\n")
以所欲輸出模式產圖。
# Print to console (default)
cat(put_diagram(workflow, theme = "github"))
# Save to file
writeLines(put_diagram(workflow, theme = "github"), "docs/workflow.md")
# Get raw string for embedding
mermaid_code <- put_diagram(workflow, output = "raw", theme = "github")
# With source file info (shows which file each node comes from)
cat(put_diagram(workflow, theme = "github", show_source_info = TRUE))
# With clickable nodes (for VS Code, RStudio, or file:// protocol)
cat(put_diagram(workflow,
theme = "github",
enable_clicks = TRUE,
click_protocol = "vscode" # or "rstudio", "file"
))
# Full-featured
cat(put_diagram(workflow,
theme = "viridis",
show_source_info = TRUE,
enable_clicks = TRUE,
click_protocol = "vscode"
))
預期: 有效 Mermaid 代碼以 flowchart TD(或依方向之 LR)始。節點以箭頭示資料流連。
失敗時: 若輸出為 flowchart TD 無節點,工作流程資料框空。若連結缺,核輸出檔名於節點間配合輸入檔名。
將圖插入合宜文件格式。
GitHub README(```mermaid 代碼圍欄):
## Workflow
```mermaid
flowchart TD
A["Extract Data"] --> B["Transform"]
B --> C["Load"]
```
Quarto 文件(經 knit_child 之原生 mermaid 段):
# Chunk 1: Generate code (visible, foldable)
workflow <- put("./src/")
mermaid_code <- put_diagram(workflow, output = "raw", theme = "github")
# Chunk 2: Output as native mermaid chunk (hidden)
#| output: asis
#| echo: false
mermaid_chunk <- paste0("```{mermaid}\n", mermaid_code, "\n```")
cat(knitr::knit_child(text = mermaid_chunk, quiet = TRUE))
R Markdown(以 mermaid.js CDN 或 DiagrammeR):
DiagrammeR::mermaid(put_diagram(workflow, output = "raw"))
預期: 圖於目標格式正確渲染。GitHub 原生渲染 mermaid 代碼圍欄。
失敗時: 若 GitHub 不渲染圖,確代碼圍欄用確切 ```mermaid(無附屬)。Quarto 須用 knit_child() 法,因 {mermaid} 段中直接變數插值不支援。
put_diagram() 產有效 Mermaid 代碼(以 flowchart 始)put() 返回無列。核註解存且語法有效。data.csv 與 Data.csv 為不同。"github" 主題為 GitHub 渲染所特別設計。%%{init:...}%% 主題區塊恐為部分渲染器忽略。{mermaid} 段不支援 R 變數直接。用步驟五所述 knit_child() 技法。exclude 參數於掃描時略之:
workflow <- put("./src/", exclude = c("build-workflow\\.Rquot;, "build-workflow\\.jsquot;))
show_artifacts = TRUE 過吵:大專案可生多工件節點(十至二十加),雜亂圖。用 show_artifacts = FALSE 並賴 node_type 註解明標關鍵輸入/輸出。annotate-source-files — 前提:生圖前檔須已註analyze-codebase-workflow — 自動偵測可補手動註解setup-putior-ci — 於 CI/CD 中自動重生圖create-quarto-report — 於 Quarto 報告中嵌圖build-pkgdown-site — 於 pkgdown 文件站中嵌圖