如何根据用户输入打印不同的数据框？ Rmarkdown/闪亮

Question

我试图让用户 select 有一个数据框，然后将其呈现为表格。

这是我的代码。

---
title: "Untitled"
date: "2/24/2022"
output: html_document
runtime: shiny
---


```{r}


selectInput(inputId = "dataset",label = "Choose Data Frame", choices = c(mtcars, iris, cars))

renderTable({
    dataset <- get(input$dataset, choices = c(mtcars, iris, cars))
 })



```

尽管出于某种原因，输入是每个数据集的列名。

Answer 1

我们可能需要choices作为 object 名称作为字符串的向量，然后使用get （假设这些对象已经在全局环境中创建）

selectInput(inputId = "dataset",label = "Choose Data Frame",
    choices = c("mtcars", "iris", "cars"))

renderTable({
  dataset <- get(input$dataset)
})

-输出