8

以下のようなデータフレームを作成しようとしています。

X   Y
20  30

textInput を使用してデータ フレームを作成します。
しかし、テキスト領域に入力された値がデータ フレームに正しく割り当てられていません。

手伝っていただけませんか？

ui.R

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