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

thorough guide for profiling racket code -

did googling ("racket profiling", "racket measure performance"), didn't find , there no examples in docs. did google "profile" search on htdp - no luck. (profile (f ...)) output isn't obvious other small snippets. ideally want python's python -m cprofile usage examples. when search "python profiling", both duckduckgo , google give top result: 26.4. python profilers . (although scanned quickly, seems more of reference "thorough usage guide" examples. if had else in mind, perhaps please link that?) the equivalent racket documentation be: profile: statistical profiler . a usage example: #lang racket (require profile) (profile-thunk (thunk (function-to-profile arg0 arg1) )) here (thunk e) convenience (lambda () e) . bigger example: #lang racket (module mod racket (provide f) (define (f) (for/list ([i 10000]) i))) (require (prefix-in mod: 'mod)) (define (f) (for ([i 10000
Read more