将用户输入列添加到 Shiny

Question

我正在尝试收集给定数据集的用户输入。我想插入一个列，用户可以在其中确定他们是否想要拥有mtdata 集合中的一辆车。这完全是主观的，因为意见因人而异，所以我无法对此进行编程。有没有办法附加一个额外的列，可以是复选框或下拉菜单，以识别用户“想要拥有的汽车？

library(shiny)

shinyApp(ui = shinyUI(fluidPage(

             titlePanel("Interesting Cars"),

             sidebarLayout(
               sidebarPanel(
                 helpText("This is a side bar")),

               mainPanel(
                 tableOutput("view")
               )
             )
           )),
         server = function(input, output) {

             output$view <- renderTable({
               head(mtcars[, 1:4], n = 6)

             })

           })

Answer 1

这个怎么样，你可以使用DT库。通过添加filter 选项，用户可以定义自己想要的不同组件，看看会出现什么汽车。

library(shiny)
library(DT)

shinyApp(ui = shinyUI(fluidPage(

    titlePanel("Interesting Cars"),

    sidebarLayout(
        sidebarPanel(
            helpText("This is a side bar")),

        mainPanel(
            DT::dataTableOutput("view")
        )
    )
)),
server = function(input, output) {

    output$view <- DT::renderDataTable({
        datatable(mtcars, 
                  filter = "top"
        )

    })

})

编辑

如果添加另一列表明它是否“有趣”确实如此重要，那么如果您打算让用户在不同的条件下分配它，那么您将需要编写更多的代码。这是一个只有mpg 的示例。这里的基本思想是将数据分配给reactiveValues 函数。然后可以根据需要对其进行修改。这显然可以进一步改进（因为它将继续添加列），但它展示了这个概念。

shinyApp(ui = shinyUI(fluidPage(

    titlePanel("Interesting Cars"),

    sidebarLayout(
        sidebarPanel(
            helpText("This is a side bar"),
            uiOutput("mpg"),
            actionButton("add_label", "Mark Interesting")
            ),

        mainPanel(
            DT::dataTableOutput("view")
        )
    )
)),
server = function(input, output) {

    values <- reactiveValues(
        mydata = mtcars
        )

    output$mpg <- renderUI({
        numericInput("mpg_input", "MPG Cutoff?",
                     value = 15
                    )
    })

    output$view <- DT::renderDataTable({
        datatable(values$mydata
        )
    })

    observeEvent(input$add_label, {
        validate(
            need(!is.null(input$mpg_input), "need mpg value")
        )
        values$mydata <- data.frame(values$mydata,
                               Interesting_Flag = 
                                   ifelse(values$mydata$mpg > input$mpg_input,
                                      "Interesting",
                                      "Not Interesting"))
    })
})