矢量输入闪亮的R然后使用它

Question

在Shiny R中，我想要一个简单的方法将矢量作为ui.R中的用户输入，然后想在server.R中的一个函数中使用它。我是闪亮的新手，请帮忙。

Answer 1

这是让你入门的简单方法 - 祝你好运。请记住 - 下次发布一些代码或者你肯定会被投票：

High Performance Django

产量：

Answer 2

我知道这是一篇过时的文章，但是我遇到了一种供用户输入向量作为Shiny输入的替代方法-将create = TRUE和multiple = TRUE选项与selectizeInput()一起使用。从上面稍微修改Mike Wise的代码示例：

library(shiny)

ui <- shinyUI(

  pageWithSidebar(

    headerPanel("Entering Vectors in Shiny")

    , sidebarPanel(

      selectizeInput(
        "vec1"
        , "Enter a vector"
        , choices = NULL
        , multiple = TRUE
        , options = list(create = TRUE)
      )

    ),

    mainPanel(

      h4("You entered")

      , verbatimTextOutput("oid1")

      , verbatimTextOutput("oid2")

    )

  )
)

server <- shinyServer(function(input, output) {

  output$oid1 <- renderPrint({

    req(input$vec1)

    cat("As string:\n")
    cat(input$vec1)

  })

  output$oid2 <- renderPrint({

    req(input$vec1)

    cat("As atomic vector:\n")
    print(as.numeric(input$vec1))

  })

})

shinyApp(ui = ui, server = server)

---