r - How to read edited rhandsontable in another tableoutput in shiny? -


i trying make simple calculator in shiny, first create rhandsontable input given , read values in rhandsontable create table output gives final calculation. running following code this, final calculations not being updated when edit rhandsontable.

ui.r

library(shiny) library(rhandsontable)  fluidpage(    titlepanel("test app"),   sidebarlayout(     sidebarpanel(        numericinput("loc", "unique location id", na),        submitbutton("submit"),        width = 2     ),      mainpanel(        tabsetpanel(         tabpanel("                   h4("edit details:"),                   rhandsontableoutput('edit'),                   h4("final details:"),                   tableoutput('fin')         )       )     )   ) )

server.r

library(shiny)  shinyserver(function(input, output) {    final<- reactive({      ##here dataset based on location id input     ##the dataset has columns(in order): location_id, name, age, salary, household_size, avg_amount_per_person     ##avg_amount_per_person = salary/household_size     ##it has totals row, show complete dataset in separate tab   })    ##now creating rhandsontable shown in 'custom' tab    values<- reactivevalues()    data<-  reactive({     if (!is.null(input$hot)) {       df<-  hot_to_r(input$hot)     } else {       if (is.null(values[["df"]]))         df<-  final()[1:(nrow(final())-1),c(1,2,4)] #this exclude totals row , select location_id, name, salary columns final()       else         df<- values[["df"]]     }      values[["df"]]<-df      df   })    output$edit <- renderrhandsontable({     df<-  data()     if (!is.null(df))       rhandsontable(df, usetypes = true)   })    final2<- reactive({      fnf<- final()[1:(nrow(final())-1),]      fnf$salary<- data()$salary      fnf$avg_amount_per_person<- data()$salary/fnf$household_size       ##here create totals row in fnf      fnf   })    output$fin<- rendertable(final2())  })

can please me going wrong? in advance :)


-

Comments

Post a Comment

Popular posts from this blog

c++ - CPP, 'X' button listener -

i'm writing cpp program, , want execute function when 'x'(shut down) button pressed. for example, have infinite loop prints same thing everytime iterates, until 'x' button pressed, , want execute function before process ends. is there kind of listener matter? or other solution maybe (like delaying process shut down few seconds or something)? thanks! if want execute before process ends, can register std::atexit handler. function called before process exits.
Read more

shared memory - gstreamer shmsrc and shmsink with h264 data -

i trying share h264 encoded data gstreamer 2 processes(both based on gstreamer).after research way found use shm plugin. trying do gstreamer--->h264 encoder--->shmsink shmrc--->process1 shmrc--->process2 i able raw data videotestsrc , webcam working. h264 encoded data doesn't. test pipeline gst-launch-1.0 videotestsrc ! video/x-raw,width=640,height=480,format=yuy2 ! x264enc ! shmsink socket-path=/tmp/foo sync=true wait-for- connection=false shm-size=10000000 gst-launch-1.0 shmsrc socket-path=/tmp/foo ! avdec_h264 ! video/x- raw,width=640,height=480,framerate=25/1,format=yuy2 ! autovideosink have tried shm plugins h264 encoded data, please help iam not aware of capabilities of sink used in "autovideosink", per knowledge either need use videoconvert if format supported sink (like kmssink or ximagesink) different provided source (in case yuy2) or use videoparse if camera format supported sink. may check using gst-inspect-1...
Read more

.net - Bulk insert via Dapper is slower than inserting rows one-by-one -

i'm using dapper insert data realtime feed sql server, care performance. recently, noticed strange. out of box, if give dapper collection , insert query, fires insert statements each element. tests show can insert 1800 objects 12 fields in 1 second way (counting connection.execute(...) running time. now, didn't find batch insert functionality in dapper , implemented own (constructing parameter list , sql query). after that, found out can insert 1 batch in 3 seconds (which limited 1000 rows) (again, counting connection.execute(...) calls. so, makes batching 6 times slower sending each row in separate query. can explain me? thought people use batch operations speed process. insert time 1 second @ most. use sql server 2012 standard on local network. table i'm inserting has clustered index on primary key (which bigint field), no non-clustered indexes , triggers. can post code, there's nothing special i'm not sure why using dapper execute extension ...
Read more