DNBuilder Shinyapps：更改术语标签

我正在使用DynNom:：DNbuilder R包从日志回归构建shinyapp。我获得了ui.R、server.R和global.R代码，应用程序运行正常。然而，我正试图改变滑块和标签的格式，但我一直无法做到这一点。 如果有人能在这里透露一些情况，我将不胜感激。谢谢

以下是我希望应用程序显示的型号和标签：

data <- data.frame(
   x = c(0,1,0),
   y = c(3,6,2),
   z = c(1.3, 2.8, 3.1),
   w = c(1,0,0)
)

model <- lrm(x ~ y + z + w,   data = data)

modellabels <- c("ylabel", "zlabel", "wlabel")

---

data我不太确定您指的是哪种类型的闪亮小部件（或标签），但我有一些评论

首先，您需要确保正确定义变量的类（例如，作为因子、数值等），例如，在拟合模型之前添加以下代码：

> data$y <- as.factor(data$y)

> names(data)
[1] "x" "y" "z"
> names(data)[2] <- 'ylabel'
> names(data)
[1] "x" "ylabel" "z"
> model <- lrm(x ~ ylabel + z, data = data)

>数据$y名称（数据）
[1] “x”“y”“z”
>名称（数据）[2]名称（数据）
[1] “x”“ylabel”“z”
>模型名称（PRED）
[1] “y”“z”
>名称（pred）[1]名称（pred）
[1] 标签为y“z”
>save.image（file=“data.RData”）
欢迎来到SO！您应该发布最小的代码来重现问题，并包含伪数据。不要发布你的整个项目：你的大部分代码都按预期工作，这对想帮助你的人来说是个噪音。谢谢！这样更好吗？我在这里完全是个新手：/
> data$y <- as.factor(data$y)

> names(data)
[1] "x" "y" "z"
> names(data)[2] <- 'ylabel'
> names(data)
[1] "x" "ylabel" "z"
> model <- lrm(x ~ ylabel + z, data = data)

> names(preds)
[1] "y" "z"         
> names(preds)[1] <- 'labelled y'
> names(preds)
[1] "labelled y" "z"         
> save.image(file = "data.RData")