fix(eulerr): replace external URL dependency with self-contained data; fix fills/col length errors

[Copilot]

051-eulerr.qmd fetched example data from https://hiplot.cn/ui/basic/eulerr/data.json — that endpoint's data changed, causing eulerr::plot.euler() to throw fills$fill must have length 1, n_sets, or n_subsets. Additionally, labels$col and quantities$col both used length(genes) (total entries incl. intersections) instead of the correct per-argument lengths.

Changes

• Data: Replaced external URL fetch with a self-contained synthetic 3-set example (LUAD/BRCA/COAD counts + overlaps); removed now-unused data.table/jsonlite dependencies
• fills$fill: Changed fill[seq_len(n_sets)] → rep_len(fill_colors, n_sets) — correct length and safe for any number of sets
• labels$col: Fixed to rep("white", n_sets) (one per set label)
• quantities$col: Fixed to rep("white", n_subsets) (one per Euler region)
• Cleanup: Removed empty Contributors/审核 author entries; applied all fixes to .zh.qmd

n_sets    <- length(euler_set$sets)           # base sets only
n_subsets <- length(euler_set$original.values) # all regions incl. intersections

plot(euler_set,
  labels     = list(col = rep("white", n_sets)),
  fills      = list(fill = rep_len(fill_colors, n_sets)),
  quantities = list(type = c("percent", "counts"),
                    col  = rep("white", n_subsets)))

[ShixiangWang]

不能通过减少依赖来解决实际问题