r - Saving multiple data sets and deleting using Shiny action buttons -


having trouble linking 2 different action buttons rendered table. anytime "save cohort" action button enabled user, data set gets saved, , output table "cohort_names" updates fine. but, when "reset cohorts", "saved cohort" names table not empty. in example code below, referencing same fake data set. 

shinyserver(function(input, output, session) {                  populations = reactivevalues(a = 0)           values = reactivevalues(extracted_data = null)             #this finds dataframe saved           observeevent(input$run_query, {             values$extracted_data = data.frame(id = c(153, 343, 996), sex = c(2,1,1)) #just example. behind scenes running sql query           })            #this action button saves data frame reactive list           observeevent(input$save_cohort, {             if(!is.null(values$extracted_data) & input$name_cohort != "a") {               populations$a = populations$a + 1               cname = ifelse(input$name_cohort == "", paste("population", populations$a), input$name_cohort)               populations[[cname]] = values$extracted_data #this object comes "run query" action , works fine               print(populations$a)             }           })            #this action button suppose reset reactive object "populations" null , resets counter (a)           observeevent(input$reset_cohorts, {             populations = null             populations$a = 0             print(populations$a)           })            #population info           output$populations = rendertext(populations$a)           updated_names <- reactive({               tmpnames = cbind(names(populations)[-which(names(populations) == "a")])               colnames(tmpnames) = "populations"               print(tmpnames)               tmpnames           })            #this not updating. need cohort_names reset nothing when reset_cohorts enabled. updates fine when save_cohorts enabled.            output$cohort_names = rendertable({updated_names()}, align = 'c', width = "100%") }

here simple ui.r in case wants recreate:

shinyui(fluidpage(   sidebarlayout(     sidebarpanel(tableoutput("cohort_names")),     mainpanel(actionbutton("run_query", "run query"),               actionbutton("save_cohort", "save cohort"),               actionbutton("reset_cohorts", "reset cohorts"),                textinputrow("name_cohort",label= null, placeholder = "enter cohort name"))   ) )

my current running theory treating reactivevalues incorrectly, cannot life of me figure out appropriate solution. advice appreciated

although can achieve want, code has bug. if press reset cohorts button first time, reset in background (see console prints) ui not show updated value. second click onward on reset cohort button, works intended. not figure out why happening though :(

here code in case can live bug.

library(shiny) server <- function(input, output, session) {          populations <<- list()   pop_counter <- reactivevalues(a = 0)   values <- reactivevalues(extracted_data = null)     #this finds dataframe saved   observeevent(input$run_query, {     values$extracted_data = data.frame(id = c(153, 343, 996), sex = c(2,1,1)) #just example. behind scenes running sql query   })    #this action button saves data frame reactive list   observeevent(input$save_cohort, {     if(!is.null(values$extracted_data) & input$name_cohort != "a") {       pop_counter$a = pop_counter$a + 1       cname = ifelse(input$name_cohort == "", paste("population", pop_counter$a), input$name_cohort)       populations[[cname]] <<- values$extracted_data #this object comes "run query" action , works fine       print('inside saving cohort....')       print(populations)       print(class(populations))       print(pop_counter$a)     }   })    #this action button suppose reset reactive object "populations" null , resets counter (a)   observeevent(input$reset_cohorts, {     print('inside resetting of populations list')     populations <<- list()     pop_counter$a <- 0     print(populations)     print(pop_counter$a)   })    updated_names <- eventreactive(c(input$reset_cohorts, input$save_cohort),{     print('inside updated_names() ...')     if(length(populations) == 0) return(data.frame())      tmpnames <- cbind(names(populations))#[-which(names(populations) == "a")]     colnames(tmpnames) = "populations"      print(tmpnames)     tmpnames   })       #this not updating. need cohort_names reset nothing when reset_cohorts enabled. updates fine when save_cohorts enabled.    output$cohort_names = rendertable({updated_names()}, align = 'c', width = "100%")     }   ui <-   shinyui(fluidpage(   sidebarlayout(     sidebarpanel(tableoutput("cohort_names")),     mainpanel(actionbutton("run_query", "run query"),               actionbutton("save_cohort", "save cohort"),               actionbutton("reset_cohorts", "reset cohorts"),                textinput("name_cohort",label= null, placeholder = "enter cohort name"))   ) ) )  shinyapp(ui = ui, server = server)

Comments

Post a Comment

Popular posts from this blog

node.js - Node js - Trying to send POST request, but it is not loading javascript content -

i have been trying send post request website, , has not been loading full site. i guessing problem node js not loading javascript content, executing it. can see javascript in response, though never loads content javascript files producing in html. what mean is, doesn't execute javascript. how make node js code overcome this, , wait the full website load? have tried native code, , "request' module, both producing same errors. if helps, don't need native javascript. modules fine. some code have tried (request module): var options = { method: 'post', uri: 'https://url', formdata: { 'email': 'email', 'prize': '0', 'transactional': 'on' }, headers: { /* 'content-type': 'application/x-www-form-urlencoded' */ // set automatically } }; rp(options) .then(function (body) { console.log(body) }) .catch(function (err) { console.log(err) }); when fetch content...
Read more

javascript - Replicate keyboard event with html button -

i have tried few ways make happen. have javascript pinball game uses keyboard keys controls. converting application touch screen display. workaround, hoping overlay buttons when clicked simulate keyboard strokes. have done research , sounds should work. using jquery v3.2.1 here things have tried far... html element: <input type="button" class="coil"></input> $('.coil').trigger({type: 'keydown', which: 40, keycode: 40}); with this, not errors, nothing happens. var coilkey = $('body').keydown(function(e) { switch (e.keycode) { case 40: break;} }) $('.coil').click(coilkey); this 1 returns error in console... ((jquery.event.special[handleobj.origtype] || (intermediate value)).handle || handleobj.handler).apply not function below javascript game engine handles key listeners... addkeylistener: function (keyandlistener) { this.keylisteners.push(keyandlistener); }, // gi...
Read more

javascript - Web audio api 5.1 surround example not working in firefox -

i've been playing lott lately web audio api on both firefox , chrome. few days ago started experiment surround set. when trying surround audio in web audio api came notice example works fine in chrome v59 not in firefox v54. // create web audio api context var audioctx = new (window.audiocontext || window.webkitaudiocontext)(); audioctx.destination.channelinterpretation = 'discrete'; audioctx.destination.channelcountmode = 'explicit'; audioctx.destination.channelcount = 6; var oscillators = []; var merger = audioctx.createchannelmerger(6); console.log(audioctx.destination, merger); //merger.channelinterpretation = 'discrete'; //merger.channelcountmode = 'explicit'; //merger.channelcount = 6; var addoscilator = function(channel, frequency) { var oscillator = audioctx.createoscillator(); oscillator.frequency.value = frequency; // value in hertz oscillator.connect(merger,0,channel); oscillator.start(); oscillators.push(o...
Read more