时间戳

首页 > 解决方案 > r Shiny 使用数据框列进行选择

r - r Shiny 使用数据框列进行选择

问题描述

我对 R 真的很陌生，所以这可能是一个简单而明显的解决方法。

我正在尝试创建一个函数，我可以调用该函数来使用数据框中列的名称创建 selectInput 框，其中的选项是

数据集是数据框的名称，特征是框内列的名称。我试图将特征名称用作输入框的标题，将列中的值用作下拉框选项，并将输入存储在名为 I(characteristic) 的变量中。

NewCharacterBox <- function(Characteristic, Dataset)
  fluidRow(
    column(3,
           selectInput(paste("I", toString(Characteristic), sep = ""), h5(toString(Characteristic)),
                       choices = Dataset$Characteristic

标签： rshiny

解决方案

如果我理解正确，您可能不需要新的用户定义函数，而是可以简单地使用names(dataset). 下面是一个例子。

library(shiny)

data = iris

ui = fluidPage(

  selectInput("choice","List of Columns", 
              choices = names(data),
              selected = NULL),
  textOutput("selected"),
  tableOutput("result")
)


server = function(input, output) {

  output$selected <- renderText({
    paste("You have selected", input$choice)
  })

  output$result <- renderTable({
    data[,input$choice]
  })
}




shinyApp(ui,server)

推荐阅读