fix: report-worker Dockerfile 加 ragg 系统依赖 + 修复 significant 类型转换

- Dockerfile 加 libfreetype/libpng/libtiff/libjpeg/harfbuzz/fribidi
- render_word.R 用 as.logical() 处理 HDF5 读出的字符型 significant 列

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: jiajunagent

packages/engines/report-worker/Dockerfile

@@ -2,7 +2,8 @@ FROM rocker/r-ver:4.4.2
 
 RUN apt-get update && apt-get install -y --no-install-recommends \
     libcairo2-dev libxml2-dev libcurl4-openssl-dev libssl-dev \
-    libsodium-dev libfontconfig1-dev wget pandoc && \
+    libsodium-dev libfontconfig1-dev libfreetype6-dev libpng-dev \
+    libtiff5-dev libjpeg-dev libharfbuzz-dev libfribidi-dev wget pandoc && \
     ARCH=$(dpkg --print-architecture) && \
     wget -qO /tmp/quarto.deb "https://github.com/quarto-dev/quarto-cli/releases/download/v1.6.40/quarto-1.6.40-linux-${ARCH}.deb" && \
     dpkg -i /tmp/quarto.deb && rm /tmp/quarto.deb && \

packages/engines/report-worker/R/render_word.R

@@ -20,7 +20,7 @@ render_word_report <- function(metabodata_path, chart_dir, output_dir,
   summary_df <- data.frame(
     Metric = c("Samples", "Features Detected", "Significant Features", "Groups"),
     Value = c(nrow(md$obs), ncol(md$X),
-              sum(md$var$significant, na.rm = TRUE),
+              sum(as.logical(md$var$significant), na.rm = TRUE),
               paste(unique(md$obs$group), collapse = " vs "))
   )
   ft <- flextable(summary_df)
@@ -45,7 +45,7 @@ render_word_report <- function(metabodata_path, chart_dir, output_dir,
   # Section 3: Top Features Table
   doc <- body_add_par(doc, "3. Top Significant Features", style = "heading 2")
   if (!is.null(md$var$pvalue) && !is.null(md$var$logFC)) {
-    sig <- md$var[md$var$significant == TRUE, , drop = FALSE]
+    sig <- md$var[as.logical(md$var$significant) == TRUE, , drop = FALSE]
     if (nrow(sig) > 0) {
       top <- head(sig[order(sig$pvalue), ], 20)
       cols <- intersect(c("feature_id", "mz", "rt", "logFC", "pvalue"), names(top))