8

尝试创建如下所示的数据框；

X   Y
20  30

使用 textInput 创建数据框。
但是在文本区域中输入的值没有正确分配给数据框。

请你帮助我好吗？

用户界面

library(shiny)
shinyUI(pageWithSidebar(
  headerPanel( "", ""),
  sidebarPanel(

    wellPanel(
      textInput('datavalues', "variable values",""),
      actionButton("submit","Apply")

    )
  ),

  mainPanel(   
    verbatimTextOutput('datatable')
  )
))

服务器.R

library(shiny)
shinyServer(function(input,output,session){

  data1= reactive({
    if(input$submit!=0){
      isolate({
        data.frame(paste(input$datavalues))
      })
    }
  })

  output$datatable<-renderPrint(function(){
    if(!is.null(data1())){
      d<-data1()
      print(d)
    }
  })


})
4

1 回答 1

8

我建议使用 shinyIncubator 包的 matrixInput 函数。我在这里做了一个演示：https ://gist.github.com/anonymous/8207166 。您可以使用以下命令从 RStudio 运行它：

library("shiny")
runGist("https://gist.github.com/anonymous/8207166")

但是要根据您的代码回答您的问题，下面是一个有效的修改。请注意，函数 renderTable() 接受允许您控制 data.frame 显示的参数。使用 matrixInput 函数的优点是您可以使数据帧的大小反应，而在下面它被硬编码为 2 变量数据帧。

用户界面

library("shiny")    
shinyUI(
  pageWithSidebar(
    headerPanel("textInput Demo")
    ,
    sidebarPanel(
      wellPanel(
        textInput('x', "enter X value here","")
        ,
        textInput('y', "enter Y value here","")
        ,
        actionButton("submit","Submit")
      )
    )
    ,
    mainPanel(uiOutput('table'))
))

服务器.R

library("shiny")
shinyServer(
  function(input,output,session){

    Data = reactive({
      if (input$submit > 0) {
          df <- data.frame(x=input$x,y=input$y)
          return(list(df=df))
      }
    })

    output$table <- renderTable({
        if (is.null(Data())) {return()}
        print(Data()$df)
      }, 'include.rownames' = FALSE
       , 'include.colnames' = TRUE
       , 'sanitize.text.function' = function(x){x}
    )

})
于 2014-01-01T11:41:27.327 回答