r - Shiny - how to send updated data with renderUI and eventReactive? -


i want send form data server only when submit button clicked, use eventreactive method. render form elements using renderui method. lastly, use observe method observe changes in form elements - if of radio buttons in plot 2 clicked, update , deselect radio buttons in plot 1, , vice versa.

so when click submit button, expect data plot 1 null, data server side still a value. below test code.

ui.r

library(shiny)  # define ui application draws histogram shinyui(fluidpage(    # application title   titlepanel("hello shiny!"),    # sidebar slider input number of bins   sidebarlayout(     sidebarpanel(       uioutput("plot1ui"),       uioutput("plot2ui"),       actionbutton('goplot', 'enter')     ),      # show plot of generated distribution     mainpanel(       plotoutput("plot")     )   ) ))

server.r

library(shiny)  # define server logic required draw histogram shinyserver(function(input, output, session) {    output$plot1ui <- renderui({     radiobuttons(         inputid = "plot1",         label = "plot 1:",         choices = c(             "option 1" = "1",             "option 2" = "2",             "option 3" = "3"         ),         selected = null,         inline = false     )   })    output$plot2ui <- renderui({     radiobuttons(         inputid = "plot2",         label = "plot 2:",         choices = c(             "option a" = "a",             "option b" = "b",             "option c" = "c"         ),         selected = character(0),         inline = false     )   })    observe({       plot1 <- input$plot1       if (!is.null(plot1) && plot1 != '1') {           updateradiobuttons(             session,             "plot2",             label = "plot 2:",             choices = c(                 "option a" = "a",                 "option b" = "b",                 "option c" = "c"             ),             selected = character(0),             inline = false         )       }   })    observe({       plot2 <- input$plot2       if (!is.null(plot2)) {           updateradiobuttons(             session,             "plot1",             label = "plot 1:",             choices = c(                 "option 1" = "1",                 "option 2" = "2",                 "option 3" = "3"             ),             selected = character(0),             inline = false         )       }   })    # call when button pressed.   eventplot <- eventreactive(input$goplot, {     cat('\n')     cat('plot 1:')     str(input$plot1)      cat('\n')     cat('plot 2:')     str(input$plot2)   })    output$plot <- renderplot({       # render plot eventreactive.       eventplot()   }) })

what have done wrong? how can send data described above?

using updateradiobuttons() unfortunately updates radio button in ui without affecting actual input$ value. set input$ value null can use shiny.addcustommessagehandler.

to can add script ui.r

tags$script("     shiny.addcustommessagehandler('resetvalue', function(variablename) {       shiny.oninputchange(variablename, null);     });   ")

and utilize message handler while updating radio buttons in server.r

session$sendcustommessage(type = "resetvalue", message = "inputid")

below full implementations of think address question. additionally converted observes observeevents since have specific event they're reacting to.

ui.r

library(shiny)  # define ui application draws histogram shinyui(fluidpage(   tags$script("     shiny.addcustommessagehandler('resetvalue', function(variablename) {       shiny.oninputchange(variablename, null);     });   "),   # application title   titlepanel("hello shiny!"),    # sidebar slider input number of bins   sidebarlayout(     sidebarpanel(       uioutput("plot1ui"),       uioutput("plot2ui"),       actionbutton('goplot', 'enter')     ),      # show plot of generated distribution     mainpanel(       plotoutput("plot")     )   ) ))

server.r

library(shiny)  # define server logic required draw histogram shinyserver(function(input, output, session) {    output$plot1ui <- renderui({     radiobuttons(       inputid = "plot1",       label = "plot 1:",       choices = c(         "option 1" = "1",         "option 2" = "2",         "option 3" = "3"       ),       selected = character(0),       inline = false     )   })    output$plot2ui <- renderui({     radiobuttons(       inputid = "plot2",       label = "plot 2:",       choices = c(         "option a" = "a",         "option b" = "b",         "option c" = "c"       ),       selected = character(0),       inline = false     )   })    observeevent(input$plot1, {     updateradiobuttons(session,                        inputid = "plot2",                        label = "plot 2:",                        choices = c(                          "option a" = "a",                          "option b" = "b",                          "option c" = "c"                        ),                        selected = character(0),                        inline = false)     session$sendcustommessage(type = "resetvalue", message = "plot2")   })    observeevent(input$plot2, {     updateradiobuttons(session,inputid = "plot1",                        label = "plot 1:",                        choices = c(                          "option 1" = "1",                          "option 2" = "2",                          "option 3" = "3"                        ),                        selected = character(0),                        inline = false)     session$sendcustommessage(type = "resetvalue", message = "plot1")   })    # call when button pressed.   eventplot <- eventreactive(input$goplot, {     cat('\n')     cat('plot 1:')     str(input$plot1)      cat('\n')     cat('plot 2:')     str(input$plot2)      plot(rnorm(100))   })    output$plot <- renderplot({     # render plot eventreactive.     eventplot()   }) })

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