Tengo este código en el que se carga un archivo csv y lo que quiero es generar una tabla cuando le des al botón go en la que aparezca los datos del archivo csv cargado y se añada una columna con el valor que se introduzca en el campo texto. He probado con esto pero no se genera la tabla. Como no me deja publicar todo el código, pongo las partes que tengo problemas.
Tengo declaradas estas funciones dentro del UI de shiny:
fileInput("file1", "Choose CSV File",
multiple = FALSE,
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv")),
actionButton("go", "Go"),
textInput("text", "text")
Y en el server:
server <- function(input, output) {
output$contents <- renderTable({
req(input$file1)
randomVals <- eventReactive(input$go, {
input$text %>% cbind(input%>%file1)
})
output$table <- renderTable({
randomVals()
})