update

Dockerfile

@@ -11,6 +11,7 @@ RUN echo 'options(radiant.shinyFiles = FALSE)' >> /usr/local/lib/R/etc/Rprofile.
 COPY . /srv/shiny-server/
 COPY set_path.R /usr/local/lib/R/etc/Rprofile.site.d/00-radiant-path.R
 RUN echo 'source("/srv/shiny-server/radiant.model/R/coxp.R")' >> /usr/local/lib/R/etc/Rprofile.site
+Run echo 'load("/srv/shiny-server/data/test.state.rda")' >> /usr/local/lib/R/etc/Rprofile.site
 
 # 安装所有模块
 RUN R -e "remotes::install_local('/srv/shiny-server/radiant.data',dependencies=TRUE, type='source', upgrade='never',force=TRUE)"
@@ -22,7 +23,6 @@ RUN R -e "remotes::install_local('/srv/shiny-server/radiant.quickgen',dependenci
 RUN R -e "remotes::install_local('/srv/shiny-server/radiant-master',dependencies=TRUE, type='source', upgrade='never',force=TRUE)"
 
 WORKDIR /data
-RUN R -e "load('/data/test.state.rda')"
 CMD ["R", "-e", "radiant::radiant(host='0.0.0.0', port=3838)"]
 
 #docker images | grep radiant 查看镜像

data/avengers.csv

-name,alignment,gender,publisher
Thor,good,male,Marvel
Iron Man,good,male,Marvel
Hulk,good,male,Marvel
Hawkeye,good,male,Marvel
Black Widow,good,female,Marvel
Captain America,good,male,Marvel
Magneto,bad,male,Marvel
\ No newline at end of file

data/superheroes.csv

-name,alignment,gender,publisher
Magneto,bad,male,Marvel
Storm,good,female,Marvel
Mystique,bad,female,Marvel
Batman,good,male,DC
Joker,bad,male,DC
Catwoman,bad,female,DC
Hellboy,good,male,Dark Horse Comics
\ No newline at end of file

radiant-master/inst/translations/translation_zh.csv

@@ -1192,3 +1192,8 @@ Survival curves,生存曲线,coxp_ui.R
 Cumulative hazard,累积风险,coxp_ui.R
 Schoenfeld residuals,Schoenfeld残差图,coxp_ui.R
 Martingale residuals,鞅残差图,coxp_ui.R
+Decimal places:,小数位数：,svm_ui.R
+AI chat guidance,大模型对话引导助手,init.R
+One-click generation > AI chat guidance,一键生成 > 大模型对话引导助手,init.R
+Decision Boundary (2 vars),决策边界（两变量）,svm_ui.R
+Support Vectors & Margin(2 vars),支持向量与间隔（两变量）,svm_ui.R

radiant.model/DESCRIPTION

@@ -42,6 +42,7 @@ Imports:
     vip (>= 0.3.2),
     stringi,
     yaml,
+    survminer,
     shiny.i18n
 Suggests:
     testthat (>= 2.0.0),

radiant.model/NAMESPACE

@@ -20,6 +20,7 @@ S3method(plot,repeater)
 S3method(plot,rforest)
 S3method(plot,rforest.predict)
 S3method(plot,simulater)
+S3method(plot,svm)
 S3method(plot,uplift)
 S3method(predict,coxp)
 S3method(predict,crtree)
@@ -84,6 +85,7 @@ export(cv.crtree)
 export(cv.gbt)
 export(cv.nn)
 export(cv.rforest)
+export(cv.svm)
 export(dtree)
 export(dtree_parser)
 export(evalbin)

radiant.model/R/coxp.R

@@ -15,8 +15,6 @@ coxp <- function(dataset,
   
   if (!requireNamespace("survival", quietly = TRUE))
     stop("survival package is required but not installed.")
-  attachNamespace("survival") 
-  on.exit(detach("package:survival"), add = TRUE)
   
   ## ---- 公式入口 ----------------------------------------------------------
   if (!missing(form)) {

radiant.model/man/cv.svm.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/svm.R
+\name{cv.svm}
+\alias{cv.svm}
+\title{Cross-validation for SVM}
+\usage{
+cv.svm(
+  object,
+  K = 5,
+  repeats = 1,
+  kernel = c("linear", "radial"),
+  cost = seq(0.1, 10, by = 0.5),
+  gamma = seq(0.1, 5, by = 0.5),
+  seed = 1234,
+  trace = TRUE,
+  fun,
+  ...
+)
+}
+\description{
+Cross-validation for SVM
+}

radiant.model/man/plot.svm.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/svm.R
+\name{plot.svm}
+\alias{plot.svm}
+\title{Plot method for the svm function}
+\usage{
+\method{plot}{svm}(
+  x,
+  plots = "vip",
+  size = 12,
+  nrobs = -1,
+  incl = NULL,
+  incl_int = NULL,
+  shiny = FALSE,
+  custom = FALSE,
+  ...
+)
+}
+\description{
+Plot method for the svm function
+}

radiant.model/man/predict.svm.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/svm.R
 \name{predict.svm}
 \alias{predict.svm}
-\title{Predict method}
+\title{Predict method for the svm function}
 \usage{
 \method{predict}{svm}(
   object,
@@ -14,5 +14,5 @@
 )
 }
 \description{
-Predict method
+Predict method for the svm function
 }

radiant.model/man/print.svm.predict.Rd

@@ -2,10 +2,10 @@
 % Please edit documentation in R/svm.R
 \name{print.svm.predict}
 \alias{print.svm.predict}
-\title{Print predictions}
+\title{Print method for predict.svm}
 \usage{
 \method{print}{svm.predict}(x, ..., n = 10)
 }
 \description{
-Print predictions
+Print method for predict.svm
 }

radiant.model/man/scale_df.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{scale_df}
 \alias{scale_df}
 \title{Center or standardize variables in a data frame}
 \usage{
+scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
+
 scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
 }
 \arguments{
@@ -23,5 +25,7 @@ scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
 Scaled data frame
 }
 \description{
+Center or standardize variables in a data frame
+
 Center or standardize variables in a data frame
 }

radiant.model/man/summary.svm.Rd

@@ -2,10 +2,10 @@
 % Please edit documentation in R/svm.R
 \name{summary.svm}
 \alias{summary.svm}
-\title{Summary method}
+\title{Summary method for the svm function}
 \usage{
-\method{summary}{svm}(object, ...)
+\method{summary}{svm}(object, prn = TRUE, ...)
 }
 \description{
-Summary method
+Summary method for the svm function
 }

radiant.model/man/svm.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/svm.R
 \name{svm}
 \alias{svm}
-\title{Support Vector Machine using e1071}
+\title{Support Vector Machine}
 \usage{
 svm(
   dataset,
@@ -12,15 +12,10 @@ svm(
   lev = "",
   kernel = "radial",
   cost = 1,
-  gamma = "auto",
-  degree = 3,
-  coef0 = 0,
-  nu = 0.5,
-  epsilon = 0.1,
-  probability = FALSE,
+  gamma = 1,
   wts = "None",
-  seed = 1234,
-  check = NULL,
+  seed = NA,
+  check = "standardize",
   form,
   data_filter = "",
   arr = "",
@@ -29,5 +24,5 @@ svm(
 )
 }
 \description{
-Support Vector Machine using e1071
+Support Vector Machine
 }

radiant.model/man/varimp.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{varimp}
 \alias{varimp}
 \title{Variable importance using the vip package and permutation importance}
 \usage{
+varimp(object, rvar, lev, data = NULL, seed = 1234)
+
 varimp(object, rvar, lev, data = NULL, seed = 1234)
 }
 \arguments{
@@ -18,5 +20,7 @@ varimp(object, rvar, lev, data = NULL, seed = 1234)
 \item{seed}{Random seed for reproducibility}
 }
 \description{
+Variable importance using the vip package and permutation importance
+
 Variable importance using the vip package and permutation importance
 }

radiant.model/man/varimp_plot.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{varimp_plot}
 \alias{varimp_plot}
 \title{Plot permutation importance}
 \usage{
+varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
+
 varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
 }
 \arguments{
@@ -18,5 +20,7 @@ varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
 \item{seed}{Random seed for reproducibility}
 }
 \description{
+Plot permutation importance
+
 Plot permutation importance
 }

radiant.quickgen/R/quickgen_ai.R

 # === 配置 ===
 MODELSCOPE_OPENAI_URL <- "https://api-inference.modelscope.cn/v1"
-MODELSCOPE_API_KEY    <- Sys.getenv("MODELSCOPE_API_KEY", "ms-6638b00e-57e4-4623-996d-214e375d220f")
+MODELSCOPE_API_KEY    <- Sys.getenv("MODELSCOPE_API_KEY", "ms-5b9f3668-ea8e-4a2c-8cd3-a1a9ba04810b")
 MODEL_ID              <- "deepseek-ai/DeepSeek-V3.1"
 
 # === 低层封装：单次对话 ===