I have a reactive object that i want to modify when the user click on the GO button. I tried this code and Per gives a great result.
Now I want to do more than
I used reactiveValues instead of reactiveVal and it works perfectly
Thanks @Florian
server <- shinyServer(function(input, output) {
in_data <- reactive({
inFile <- input$e
read.csv(inFile$datapath)
})
RA_s <- reactiveValues(ra = NULL)
RA_s$ra <- in_data() # intiialize the reactiveValue
# an observer to update the reactiveValue RA_s
observeEvent(input$go, {
# read the current value
current_value <- RA_s$ra
# update the value
new_value <- current_value[-(1)]
# write the new value to the reactive value
RA_s$ra <- new_value
})
output$x <- renderDataTable({
RA_s$ra
})
})
ui <- shinyUI(
fluidPage(
fileInput('e', 'E'),
actionButton("go","GO!"),
dataTableOutput('x')
)
)
shinyApp(ui,server)