r - Is it possible to replicate shiny element across application -

-

i'm working on simple shiny application consists of multiple panels, the ui.r structured code below:

shinyui(navbarpage("example",                    tabpanel("sample analysis",                             sidebarlayout(                                 sidebarpanel(                                     sliderinput("bins",                                                 "number of bins:",                                                 min = 1,                                                 max = 50,                                                 value = 30)                                 ),                                 mainpanel(                                     plotoutput("distplot")                                 )                             )),                    tabpanel("sample analysis 2",                             sidebarlayout(                                 sidebarpanel(                                     sliderinput("bins",                                                 "number of bins (again!)",                                                 min = 1,                                                 max = 50,                                                 value = 30)                                 ),                                 mainpanel(                                     plotoutput("distplot")                                 )                             )) ))

each of panel provides access different functionalities aspects of code same. example each of panels may provide access selection mechanism 1 particular object, in case of example above illustrated sliderinput replicated across 2 panels. i'm interested in exploring whether possible replicate same part of interface x number of times without need type whole sliderinput code?

edit

to complicate problem further, within function have reactive component, on lines:

build_eqls_drop_down <- function(){     sidebarpanel(selectinput("selection", h5("selection"), dynamic_vars()),                  uioutput("dynamic_list_derived_according_to_selection")) }

when encapsulated in function uioutput-generated element not appear. in addition, happy function take no parameters don't mind ui elements having same id (in effect i'm trying have 1 element in different places).

you need create function elements want replicate. later call function. can define default parameters there, try have different inputid on each element avoid conflicts.

here sample code use function create slider default parameters. please note in second tabpanel can replicate x number of times slider using lapply (in example 3 times). note can change default parameters.

library(shiny)  build_slider <- function(id, label="number of bins:", mxmi=c(1,50), val=30){     sliderinput(id,                     label,                     min = mxmi[1],                     max = mxmi[2],                     value = val) }  runapp(list(   ui = shinyui(navbarpage("example",         tabpanel("sample analysis",             sidebarlayout(                 sidebarpanel(                     build_slider("bins_1")                 ),                 mainpanel(                     plotoutput("distplot_1")                 )         )),         tabpanel("sample analysis 2",             sidebarlayout(                 sidebarpanel(                     lapply(1:3, function(k) {                          id = paste("bins", k, sep="_")                         build_slider(id, val = k*10)                     })                 ),                 mainpanel(                     plotoutput("distplot_2")                 )         ))     )),      server = function(input, output, session) { } ))

you can create function create shiny elements complex want. can create function create complete tappanel includes number of widgets , plots.


Comments

Post a Comment

Popular posts from this blog

c# - Better 64-bit byte array hash -

-
i need hash algorithm produces 64-bit hash code ( long ) fewer collisions string.gethashcode() , fast (no expensive calls cryptographic functions). here's implementation of fnv still shows 3% of collisions after testing 2 million random strings. need number way lower. void main() { const string chars = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz!#@$%^&*()_+}{\":?><,./;'[]0123456789\\"; const int n = 2000000; var random = new random(); var hashes = new hashset<long>(); int collisions = 0; for(int = 0; < n; i++) { var len = random.next(chars.length); var str = new char[len]; (int j = 0; j < len; j++) { str[j] = chars[random.next(chars.length)]; } var s = new string(str); if(!hashes.add(get64bithash( s ))) collisions++; } console.writeline("collision percentage after " + n + " random strings: " + ((doubl
Read more

webrtc - Which ICE candidate am I using and why? -

-
[questions in bold below] i have setup kurento media server 5.1.3 in datacenter behind firewall running os ubuntu 14.04. has 2 network cards: 222.222.222.222 (eth0 - private ip) 111.111.111.111 (eth1 - public ip) attached below sdp (setremotedescription) when browser connected kurento media server type: answer, sdp: v=0 o=- 5487318114793304426 0 in ip4 0.0.0.0 s=kurento media server c=in ip4 0.0.0.0 t=0 0 a=group:bundle audio video m=audio 59068 rtp/savpf 111 0 c=in ip4 111.111.111.111 a=rtpmap:111 opus/48000/2 a=rtpmap:0 pcmu/8000 a=sendrecv a=rtcp:59068 in ip4 111.111.111.111 a=rtcp-mux a=ssrc:669011897 cname:user39019747@host-6e83e4c2 a=extmap:3 http://www.webrtc.org/experiments/rtp-hdrext/abs-send-time a=mid:audio b=as:20 a=ice-ufrag:ymdk a=ice-pwd:lylifk5ueqzpwm91ddj37e a=fingerprint:sha-256 ff:0f:81:8c:41:4e:b4:b6:c6:d8:36:f3:d6:5f:09:fd:5f:af:13:b3:9d:fc:12:66:ac:f3:56:d6:5b:0a:73:5d a=candidate:1 1 udp 2013266431 111.111.111.111 55239 typ host a=candidate:2 1 udp
Read more

php - Zend Framework / Skeleton-Application / Composer install issue -

-
i trying create zend framework application using skeleton in netbeans. when run composer install, following error message: "c:\php\php.exe" "c:\composer\composer.phar" "--ansi" "--no-interaction" "update" "--dev" using deprecated option "dev". dev packages installed default now. loading composer repositories package information updating dependencies (including require-dev) requirements not resolved installable set of packages. problem 1 - package requires php >=5.5 php version (5.4.42) not satisfy requirement. problem 2 - installation request zendframework/zendframework 2.5.1 -> satisfiable zendframework/zendframework[2.5.1]. - zendframework/zendframework 2.5.1 requires php >=5.5 -> php version (5.4.42) not satisfy requirement. done. apparently, zend framework only needs php 5.3+ contradicts above. need use php 5.4. my composer.json following: { "name": "
Read more