r - Conditional formatting of a table based on values in a second dataframe -


assume example:

library(shiny) library(tidyverse)  df1 <- data.frame(a = 1:5, b = 6:10, c = 11:15) df2 <- data.frame(a = c(1:3,7,5), b = c(11, 7:10), c = 16:20)   server <- function(input, output) {   output$table1 <- rendertable({     df1   }, digits = 0   )   output$table2 <- rendertable({     df2   }, digits = 0   ) }  ui <- fluidpage(   div(h3("table formatting"), align = "center"),   div(tableoutput("table1"),align = "center"),    div(tableoutput("table2"), align = "center") )  shinyapp(ui = ui, server = server)

enter image description here

is possible format first table based on data of second table? let's want font of first table's values becomes green if value in second table @ same position same. red if values not equal.

for example df1[1,1] = df2[1,1] = 1, should green. df1[4,1] = 4 not same df2[4,1] = 7, font in df1[4,1] should red.

i don't care if formatting based on data.table, formattable or different, long usable in shiny.

thanks in advance!

you can find full answer in own post. see below.

here code you:

library("shiny") library("formattable")  df1 <- data.frame(a = 1:5, b = 6:10, c = 11:15) df2 <- data.frame(a = c(1:3,7,5), b = c(11, 7:10), c = 16:20)   ident <- function(...){   args <- c(...)    if( length( args ) > 2l ){     #  recursively call ident()     out <- c( identical( args[1] , args[2] ) , ident(args[-1]))   }else{     out <- identical( args[1] , args[2] )   }       return( all( out ) ) }  ui <- fluidpage(   div(h3("table formatting"), align = "center"),   div(formattableoutput("table1"),align = "center"),    div(formattableoutput("table2"), align = "center") )  server <- function(input, output) {   output$table2 <- renderformattable({formattable(df2, list(a = formatter("span", style = x ~ style(color= ifelse(x == df1$a & x == 1,"green", ifelse(!x == df1$a, "red", na))))))})    output$table1 <- renderformattable({formattable(df1)}) } shinyapp(ui = ui, server = server)

i have used purpose formattable package. have used format df2 , same thing should use df1 in server. hope keep going. wanted: when df1$a == df2$a , = 1 green, if !df1$a == df2$a red.


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj...
Read more

Python Tornado package error when running server -

we running tornado tcp server on windows server 2012 machine. machine handles both http-based dashboard , 21 tcp websocket connected clients. in logs see following error. seems @ low level of websocket13 protocol. networking standpoint mean? why write buffer not greater or equal 0? [error] [2017-08-17 11:54:14 am] [tornado.application] exception in callback <bound method websocketprotocol13.periodic_ping of <tornado.websocket.websocketprotocol13 object @ 0x01d7ad30>> traceback (most recent call last): file "c:\python27\lib\site-packages\tornado\ioloop.py", line 1026, in _run return self.callback() file "c:\python27\lib\site-packages\tornado\websocket.py", line 1030, in periodic_ping self.write_ping(b'') file "c:\python27\lib\site-packages\tornado\websocket.py", line 790, in write_ping self._write_frame(true, 0x9, data) file "c:\python27\lib\site-packages\tornado\websocket.py", line 768, in _writ...
Read more

Qt QGraphicsScene is not accessable from QGraphicsView (on Qt 5.6.1) -

i new qt. trying catch mouse press , release in qgraphicsview area , draw line. this, extended qgraphicsview , called myqgraphicsview . seems scene not attached since added " hello world " , never appears in view. here code extended class: class myqgraphicsview : public qgraphicsview { q_object public: myqgraphicsview(qgraphicsscene *scene, qwidget *parent = q_nullptr) : qgraphicsview(scene,parent){ // qgraphicsview::qgraphicsview(scene,parent); } qpoint *pointptr, *startpos,*endpos; qgraphicsview *cv;//maa qgraphicsscene *c; qgraphicsscene *sceneptr; // maa protected: void paintevent(qpaintevent *event) { show(); } void mousepressevent(qmouseevent *event) { // pos wrt widget. global wer global screen qdebug()<<" mouse pressed @ "<<qwidget::mapfromglobal(event->globalpos()); //globalx(); startpos = new qpoint; startpos->setx(qwidget::mapfromglobal(event->globalpos()).x()); startpos->sety(qw...
Read more