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

Question

在Shiny R中，我想要一个简单的方法将一个向量作为ui.R中的用户输入，然后想在服务器中的一个函数中使用它。我是新的有光泽，请帮忙。

Answer 1

Here is something simple to get you started - good luck. And remember - next time post some code or you will surely get downvoted:

library(shiny)

u <- shinyUI(pageWithSidebar(

  headerPanel("Entering Vectors in Shiny"),
  sidebarPanel(
    textInput('vec1', 'Enter a vector (comma delimited)', "0,1,2")
  ),

  mainPanel(
    h4('You entered'),
    verbatimTextOutput("oid1"),
    verbatimTextOutput("oid2")
  )
))

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

  output$oid1 <- renderPrint({
    cat("As string:\n")
    cat(input$vec1)
    }
    )

  output$oid2<-renderPrint({
    x <- as.numeric(unlist(strsplit(input$vec1,",")))
    cat("As atomic vector:\n")
    print(x)
  }
  )
}
)
shinyApp(ui = u, server = s)

Yielding:

Answer 2

I am aware this is an old post but I have come across an alternative way for a user to enter a vector as Shiny input - using the create = TRUE and multiple = TRUE options with selectizeInput() . Slightly modifying Mike Wise's code example from above:

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)

---