Creating data frame with multiple rows from shiny input

Question

Basically, I want the user to provide a vector of values: X=1,2,3 and Y=2.3,4.5,6.7 in the shiny interface

and get a table like that:

However, I only get the values in a row:

X        Y    
1,2,3    2.3,4.5,6.7

server

    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}
    )

  })

ui

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'))
  ))

Any ideas about how to solve this issue?

Thanks a LOT in advance,

You only get a string from textInput. You need to convert them to numbers. — Xiongbing Jin
– Xiongbing Jin, Commented Oct 9, 2016 at 15:41

Xiongbing Jin · Accepted Answer · 2016-10-09 15:44:17Z

1

textInput returns a string. So what you get is a single string "1,2,3" instead of three numbers. To convert the string to a vector of numbers

x = as.numeric(unlist(strsplit(input$x, ',')))

answered Oct 9, 2016 at 15:44

Xiongbing Jin

12.2k3 gold badges51 silver badges41 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Creating data frame with multiple rows from shiny input

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related