From b3a1fb42ed543c38a43a0f03501b01da0290e9a2 Mon Sep 17 00:00:00 2001
From: wuzekai <3025054974@qq.com>
Date: Thu, 4 Dec 2025 10:15:31 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D=E4=BA=86=E5=A4=A7=E6=A8=A1?=
 =?UTF-8?q?=E5=9E=8B=E4=B8=8D=E8=83=BD=E7=94=9F=E6=88=90=E8=A1=A8=E6=A0=BC?=
 =?UTF-8?q?=E7=9A=84bug?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 radiant.quickgen/R/quickgen_chart.R                          | 2 +-
 radiant.quickgen/inst/app/tools/analysis/quickgen_chart_ui.R | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/radiant.quickgen/R/quickgen_chart.R b/radiant.quickgen/R/quickgen_chart.R
index 3a7f8f9..13d2e99 100644
--- a/radiant.quickgen/R/quickgen_chart.R
+++ b/radiant.quickgen/R/quickgen_chart.R
@@ -43,7 +43,7 @@ build_chart_prompt <- function(user_prompt, data_call) {
 〓 输出格式 〓
 - 只返回可运行 R 代码，用 ```r 包裹，禁止任何解释、注释、空行。
 - 代码必须强制换行：每个语句（df、library、ggplot、赋值、if/else 等）单独一行，ggplot 每个图层（+ geom_*/+ theme_*）单独一行。
-- 若用户请求包含“表格”“统计汇总”“频数表”等表格需求，禁止使用knitr::kable等会使表格字符串化的函数/包，必须输出标准表格形式。
+- 若用户请求包含“表格”“统计汇总”“频数表”等表格需求，禁止使用 knitr::kable、DT::datatable 等第三方包/函数，代码最后一行必须是用data.frame()输出。
 - 若用户请求不符合规范，一律返回空代码块（仅 ```r\n``` ），不对话。
 - 当所需绘制的图中出现数据集中不存在的列或无法计算时，一律输出一张空白 ggplot，仅居中显示“无法绘制”四字，不抛出错误。
 
diff --git a/radiant.quickgen/inst/app/tools/analysis/quickgen_chart_ui.R b/radiant.quickgen/inst/app/tools/analysis/quickgen_chart_ui.R
index 234d0a3..2c1e430 100644
--- a/radiant.quickgen/inst/app/tools/analysis/quickgen_chart_ui.R
+++ b/radiant.quickgen/inst/app/tools/analysis/quickgen_chart_ui.R
@@ -169,7 +169,9 @@ observeEvent(input$chart_run_code, {
     } else if (is.data.frame(result) || is.matrix(result)) {
       r_values$chart_result_type <- "table"
       output$chart_result_table <- DT::renderDataTable(
-        DT::datatable(result, options = list(scrollX = TRUE, pageLength = 10)))
+        DT::datatable(result, options = list(scrollX = TRUE, pageLength = 10)),
+        server = FALSE
+      )
     } else {
       r_values$chart_result_type <- "text"
       output$chart_result_text <- renderText(capture.output(print(result)))
-- 
2.22.0