r - Shiny: keep boxes checked on datatable after changing inputs -


i want implement checkboxes shiny app; however, i'm facing 2 problems:

  1. after reorder columns, checks on datatable disappear (e.g., try order table mpg)
  2. after remove column, checks on datatable disappear (e.g., unchecking boxes columns show:)

here's dummy example (it's modified version of code this answer):

library(shiny) table = mtcars table$id = 1:nrow(mtcars) app <- list()  app$ui <- pagewithsidebar(     headerpanel(null),     sidebarpanel(         checkboxgroupinput("show_vars", "columns show:",                             names(table), selected = names(table))     ),     mainpanel(         datatableoutput("resulttable")     ) ) app$server <- function(input, output, session) {      output$resulttable = renderdatatable({         addcheckboxbuttons <- paste0('<input type="checkbox" name="row',                                       table$id, '" value="', table$id, '">',"")         cbind(pick = addcheckboxbuttons, table[, input$show_vars, drop = false])     }, escape = false) }  runapp(app)

app works, full implementation need solve problems 1 , 2.

based on answer provided in question:

library(shiny) mymtcars = mtcars mymtcars$id = 1:nrow(mtcars) runapp(   list(ui = pagewithsidebar(     headerpanel('examples of datatables'),     sidebarpanel(       checkboxgroupinput('show_vars', 'columns show:', names(mymtcars),                          selected = names(mymtcars))     ),     mainpanel(       datatableoutput("mytable")     )   )   , server = function(input, output, session) {      strd<-reactivevalues(tr=0, slrows=character(length=nrow(mymtcars)))       #preserve selected rows in reactive element     rowselect <- reactive({       input$rows     })     # use reactive value that's equal 'checked' parameter html code     observe({       strd$slrows<-ifelse(mymtcars$id %in% as.numeric(rowselect()),'checked','' )     })      #use observer column checkboxinput detect first run     observeevent(input$show_vars, {       strd$tr<-strd$tr+1       print(strd$tr)     }, ignorenull = true)       output$mytable = renderdatatable({       #if first run - nothing checked       if (strd$tr==1){         addcheckboxbuttons <- paste0('<input type="checkbox" name="row', mymtcars$id, '" value="', mymtcars$id, '" >',"")        } else{         # add 'checked' parameter html depending if id present in selected rows reactive value         addcheckboxbuttons <- paste0('<input type="checkbox" name="row', mymtcars$id, '" value="', mymtcars$id,'" ',                                      strd$slrows,'>',"")       }       #display table checkbox buttons       (cbind(pick=addcheckboxbuttons, mymtcars[, input$show_vars, drop=false]))     }, options = list(orderclasses = true, lengthmenu = c(5, 25, 50), pagelength = 25),     escape=false, callback = "function(table) {     table.on('change.dt', 'tr td input:checkbox', function() {     settimeout(function () {     shiny.oninputchange('rows', $(this).add('tr td input:checkbox:checked').parent().siblings(':last-child').map(function() {     return $(this).text();     }).get())     }, 10);      });   }")   }   ) )

similar, dt approach: (a bit more efficient don't create input each row , consequence won't recreate table each reactive values trigger (that's columns , rows ticks). recreates table in column reactive value trigger. can use colvis in buttons extension in order along pure dt solution

library(shiny) library(dt) mymtcars<-mtcars  shinyapp(   ui = pagewithsidebar(     headerpanel('examples of datatables'),     sidebarpanel(       checkboxgroupinput('show_vars', 'columns show:', names(mymtcars),                          selected = names(mymtcars))     ),     mainpanel(       verbatimtextoutput("selrows"),       dt::datatableoutput("mytable")     )   ),     server = function(input, output) {      strd<-reactivevalues(tr=0, slrows=c(0,0))      observe({       if(strd$tr==1){         strd$slrows<-0       } else  strd$slrows<-input$mytable_rows_selected     })      rowselect <- reactive({       input$mytable_rows_selected     })      observeevent(input$show_vars, {       strd$tr<-strd$tr+1       print(strd$tr)     }, ignorenull = true)       output$mytable = dt::renderdatatable({       datatable(mymtcars[, input$show_vars, drop=f], rownames=false,options = list(pagelength = 10),                 selection = list(mode='multiple', target='row',                                  selected = strd$slrows)  )      }       )      output$selrows<-renderprint({       input$mytable_rows_selected     })   } )

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more