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

Question

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

Answer 1

这里有一些简单的事情让你开始 - 祝你好运。请记住 - 下一次发布一些代码或你一定会得到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) 

产量：