diff --git a/radiant.quickgen/R/quickgen_chart.R b/radiant.quickgen/R/quickgen_chart.R index 3a7f8f90f51e4995c794c28241b928c78786bad8..13d2e996fbbe62f2a8564ed43252e1cd1240f094 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 234d0a34cdd9f50ec7c916acd8492c36208d9f53..2c1e4308c37a951778ec6922b065d1415e53ffaa 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)))