feat(ssa): Complete V11 UI development and frontend-backend integration - Pixel-perfect V11 UI, multi-task support, Word export, input overlay fix, code cleanup. MVP Phase 1 core 95% complete.
Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
@@ -142,6 +142,13 @@ run_analysis <- function(input) {
|
||||
})
|
||||
|
||||
# ===== 生成可复现代码 =====
|
||||
# 获取原始文件名(如果未提供则使用默认值)
|
||||
original_filename <- if (!is.null(input$original_filename) && nchar(input$original_filename) > 0) {
|
||||
input$original_filename
|
||||
} else {
|
||||
"data.csv"
|
||||
}
|
||||
|
||||
reproducible_code <- glue('
|
||||
# SSA-Pro 自动生成代码
|
||||
# 工具: 独立样本 T 检验
|
||||
@@ -156,7 +163,7 @@ if(length(new_packages)) install.packages(new_packages, repos = "https://cloud.r
|
||||
library(ggplot2)
|
||||
|
||||
# 数据准备
|
||||
df <- read.csv("your_data.csv")
|
||||
df <- read.csv("{original_filename}")
|
||||
group_var <- "{group_var}"
|
||||
value_var <- "{value_var}"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user