小编Art*_*rra的帖子

我在更改 DownloadButton 宽度时遇到问题，因为他与 actionButton （具有宽度参数）不同。

有什么简单的想法可以解决吗？这是我的代码（只是一个简单的下载按钮）：

Normalidade  
=======================================================================
Inputs {.sidebar}
-----------------------------------------------------------------------
<h5>
```{r}
tags$hr()


downloadButton("downloadNormal",label = "Download seu teste", class = "butt1")


downloadHandler(
    filename = "Resultados_Normal.csv",

    content = function(file) {
      write.csv(data, file)
    }

    )

tags$hr()
tags$br()
actionButton("AjudaNormal", label = " Ajuda", icon("question-circle"),
             width = "100%",
             onclick="window.open('http://google.com', '_blank')")


```
</h5>

我有一个需要两个参数的函数：

• dataRead（来自用户的数据帧）
• variableChosen（用户想要在模型中使用哪个因变量）

Obs：独立变量始终是第一列

但是，如果用户给我一个名为 dataGiven 的数据框，其中列名称为：“剂量”、“重量”，我希望我的模型名称在结果中包含这些名称

我的实际函数正确地生成了 lm，但是数据框中的公式名称消失了（并显示了我如何从函数中获取数据）

    Results_REG<- function (dataRead, variableChosen){

      fit1 <- lm(formula = dataRead[,1]~dataRead[,variableChosen])

      return(fit1)
      }

当我打电话时：

    test1 <- Results_REG(dataGive, "Weight")
    names(teste1$model)

显示：

    "dataRead[, 1]"            "dataRead[, variableChosen]"

我想显示我的数据框列名称，例如：

    "Doses"            "Weight"