shiny - How to mark last row in results of DataTable using R -


i mark (for instance bold) last row in data table generated using dt package. let's have table iris dataset: 

library(dt) datatable(iris)

results: enter image description here

so have 150 rows , bold only 150 row.

edit: @bigdatascientist let me clear this. have this: 

 output$tbl <-      dt::renderdatatable(       data() %>% # let's iris data - doesn't matter       bind_rows(summarise(data(), sum = "sum", = sum(a), b = sum(b),                             c = sum(c), d = sum(d),                             e = sum(e), f = sum(f))) %>%       mutate(sum = rowsums(.[2:6])),     extensions = 'buttons',      options = list(       dom = 'blfrtip',       lengthmenu = list(c(-1, 5, 10, 15, 20, 25), c('all', '5', '10', '15', '20', '25')),       buttons = list('copy',                      list(extend = 'excel',                           filename = 'report'),                      list(extend = 'pdf',                           filename = 'report'),                      'print'),      rownames = false,      server = false     ) %>%     formatstyle(      target = "row",      fontweight = styleequal(dim(.)[1], "bold")     )  )

so, add bolding last row; in case, sum of columns; pipeline, in 1 piece (one pipeline).

this page you, if adapt code bit:

formatstyle(   datatable(iris), 0, target = "row",   fontweight = styleequal(dim(iris)[1], "bold") )

edit: asked (in addition) data passed reactive() pipes in shiny. well, can offer workaround. not familiar pipes, how pass several arguments.

shinyapp(   ui = fluidpage(fluidrow(column(12, dt::datatableoutput('tbl')))),   server = function(input, output) {     irisreact <- reactive(iris)     dimirisreact <- reactive(dim(iris)[1])         output$tbl = dt::renderdatatable(       irisreact() %>% datatable() %>% formatstyle(         0, target = "row",         fontweight = styleequal(dimirisreact(), "bold")       )     )   } )

Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod...
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based ...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more