r - Radio Buttons on Shiny Datatable, with data.frame / data.table -

-

pretty copy paste this example (which, assume, supersedes of other answers on so) except i'm trying use data.table instead of matrix. i'm unable figure out why isn't working.

library(shiny) library(dt) shinyapp(   ui = fluidpage(     title = 'radio buttons in table',     dt::datatableoutput('foo'),     verbatimtextoutput('sel')   ),   server = function(input, output, session) {      m = data.table(       month1 = month.abb,        = '1',        b = '2',        c = '3',        qwe = runif(12)     )       m[, := sprintf(         '<input type="radio" name="%s" value="%s"/>',         month1, m[, a]       )]       m[, b := sprintf(         '<input type="radio" name="%s" value="%s"/>',         month1, m[, b]       )]       m[, c := sprintf(         '<input type="radio" name="%s" value="%s"/>',         month1, m[, c]       )]      output$foo = dt::renderdatatable(       m, escape = false, selection = 'none', server = false,       options = list(dom = 't', paging = false, ordering = false),       callback = js("table.rows().every(function(i, tab, row) {           var $this = $(this.node());           $this.attr('id', this.data()[0]);           $this.addclass('shiny-input-radiogroup');         });         shiny.unbindall(table.table().node());         shiny.bindall(table.table().node());")     )     output$sel = renderprint({       str(sapply(month.abb, function(i) input[[i]]))     })   } )

issue rownames. have column of rownames gets shiny attributes added it, isn't radio buttons it's text breaks (although should throw error).

here working version:

library(shiny) library(dt) shinyapp(   ui = fluidpage(     title = 'radio buttons in table',     dt::datatableoutput('foo'),     verbatimtextoutput('sel')   ),   server = function(input, output, session) {      m = data.table(       month1 = month.abb,       = '1',       b = '2',       c = '3',       qwe = runif(12)     )     m[, := sprintf(       '<input type="radio" name="%s" value="%s"/>',       month1, m[, a]     )]     m[, b := sprintf(       '<input type="radio" name="%s" value="%s"/>',       month1, m[, b]     )]     m[, c := sprintf(       '<input type="radio" name="%s" value="%s"/>',       month1, m[, c]     )]      output$foo = dt::renderdatatable(       m, escape = false, selection = 'none', server = false, rownames=false,       options = list(dom = 't', paging = false, ordering = false),       callback = js("table.rows().every(function(i, tab, row) {                     var $this = $(this.node());                     $this.attr('id', this.data()[0]);                     $this.addclass('shiny-input-radiogroup');   });                     shiny.unbindall(table.table().node());                     shiny.bindall(table.table().node());")     )     output$sel = renderprint({       str(sapply(month.abb, function(i) input[[i]]))     })     } )

Comments

Post a Comment

Popular posts from this blog

java - inputmismatch exception -

-
Image
this question has answer here: scanner skipping nextline() after using next(), nextint() or other nextfoo()? 14 answers import java.util.*; public class ngg { static scanner numberentered; static scanner userinput = new scanner(system.in); static int guessednumber; static int randomnumber = (int) (math.random()* 11); static scanner reply; static string answer; public static void main(string[] args) { guesschecker(guessednumber); } public static void guesschecker(int userguess) { while (userguess != randomnumber) { intro(); userguess = intchecker(); if (userguess == randomnumber) { system.out.println("congradulations!"); system.exit(0); } else { system.out.println("that incorrect!");...
Read more

c - zlib and gdi32 with OpenSSL? -

-
this follow question undefined reference rsa_generate_key in openssl? have openssl program generate rsa key, follows : #include <stdio.h> #include <openssl/rsa.h> #include <openssl/pem.h> int main(int argc, char* argv[]) { rsa *r = null; int ret; r = rsa_new(); bignum *bne = null; ret = rsa_generate_key_ex(r, 2048, bne, null); return 0; } when compile gcc -i../include rsatest.c -lcrypto -l. i undefined reference errors functions in libraries gdi32 , zlib. so correct this, have add -lz , -lgdi32, as gcc -i../include/ rsatest.c -lcrypto -lz -lgdi32 -l. my question is, aren't static libcrypto , libssl self sufficient? in why having add libraries make work? there option should have added while compiling library prevent this? i'm using 64 bit windows mingw compiler. made openssl library of msys , make.
Read more

Formatting string according to pattern without regex in php -

-
how can format arbitrary string according flexible pattern? solution came using regular expressions, need 2 "patterns" (one search , 1 output). example: $str = '123abc5678"; desired output: 12.3ab-c5-67.8 i use pattern in variable (one user can define without knowledge of regular expressions) this: $pattern = '%%.%%%-%%-%%.%'; so user have use 2 different characters (% , .) a solution regex this: $str = '123abc5678'; $pattern_src = '@(.{2})(.{3})(.{2})(.{2})(.{1})@'; $pattern_rpl = "$1.$2-$3-$4.$5"; $res = preg_replace($pattern_src, $pattern_rpl, $str); //$res eq 12.3ab-c5-67.8 way complicated since user need define $pattern_src , $pattern_rpl. if string vary in length, more complex explain. yes, write function/parser builds required regular expressions based on simple user pattern %%.%%%-%%-%%.%. wonder if there "built in" way achieve php? thinking sprintf etc., doesn't seem trick. ideas? ...
Read more