在shiny R中,我想要一种简单的方法,在ui.R中获取一个向量作为用户输入,然后在服务器的函数中使用它。
发布于 2016-01-21 18:57:24
这里有一些简单的事情可以让你开始-祝你好运。记住-下一次发布一些代码,否则你肯定会被否决:
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)
让步:
https://stackoverflow.com/questions/34902765
复制相似问题