r - Using lapply() in renderUI() in Shiny Module -


i trying convert section of code shiny module, renderplot() functions generated within lapply() don't seem working. have created simple example below demonstrate issue.

(note: here i'm using rendertext() calls, same behavior applies.)

app_normal.r:

library(shiny)  ui <- fixedpage(   h2("normal example"),   uioutput("test") )  server <- function(input, output, session) {   output$test <- renderui({     lapply(1:3, function(val) {       fluidrow(column(12,rendertext(paste("line", val))))     })   }) }  shinyapp(ui, server)

app_module.r:

library(shiny)  mymoduleui <- function(id) {   ns <- ns(id)   uioutput(ns("test")) }  mymodule <- function(input, output, session) {   output$test <- renderui({     lapply(1:3, function(val) {       fluidrow(column(12,rendertext(paste("line", val))))     })   }) }  ui <- fixedpage(   h2("module example"),   mymoduleui("test_module") )  server <- function(input, output, session) {   callmodule(mymodule, "test_module") }  shinyapp(ui, server)

all of div elements being created, fail contain plots/text. how use shiny rendertext() or renderplot() functions within renderui()/lapply() calls within module?

it appears approach taking using rendertext() , renderplot() functions directly in renderui() works fine in normal case, i.e. when not operating within shiny module. shiny automatically calls necessary textoutput() or plotoutput() generate html. how automatic link broken when performing same operations within shiny module. suspect due mismatch between assigning , referencing items in output list due introduction of ns() call when assigning outputids done manually in call outputplot() or outputtext().

to use renderui within shiny module, need separately call textoutput() , rendertext(): textoutput in lapply() in renderui(), , rendertext() in lapply() in observe(). allows introduce ns() generation of outputid textoutput() call.

below i've included refactoring of both app_normal.r , app_module.r demonstrates disentanglement of these 2 calls.

app_normal_observe.r:

library(shiny)  ui <- fixedpage(   h2("normal example"),   uioutput("test") )  server <- function(input, output, session) {   output$test <- renderui({     lapply(1:3, function(val) {       fluidrow(column(12,textoutput(paste0("line_", val))))     })   })    observe({     lapply(1:3, function(val) {       output[[paste0("line_", val)]] <- rendertext(paste("line", val))     })   }) }  shinyapp(ui, server)

app_module_observe.r:

library(shiny)  mymoduleui <- function(id) {   ns <- ns(id)   uioutput(ns("test")) }  mymodule <- function(input, output, session) {   output$test <- renderui({     lapply(1:3, function(val) {       fluidrow(column(12,textoutput(session$ns(paste0("line_", val)))))     })   })    observe({     lapply(1:3, function(val) {       output[[paste0("line_", val)]] <- rendertext(paste("line", val))     })   }) }  ui <- fixedpage(   h2("module example"),   mymoduleui("test_module") )  server <- function(input, output, session) {   callmodule(mymodule, "test_module") }  shinyapp(ui, server)

Comments

Post a Comment

Popular posts from this blog

inversion of control - Autofac named registration constructor injection -

does autofac support specifying registration name in components' constructors? example: ninject's namedattribute . you need use autofac.extras.attributed package on top achieve this so let's have 1 interface , 2 classes: public interface ihello { string sayhello(); } public class englishhello : ihello { public string sayhello() { return "hello"; } } public class frenchhello : ihello { public string sayhello() { return "bonjour"; } } then have consumer class, in want select instance injected: public class helloconsumer { private readonly ihello helloservice; public helloconsumer([withkey("en")] ihello helloservice) { if (helloservice == null) { throw new argumentnullexception("helloservice"); } this.helloservice = helloservice; } public string sayhello() { return this.helloservice.sayhello()...
Read more

verilog - Systemverilog dynamic casting issues -

i've code snippet following in testbench function void write_to_port( my_data_type_base data ); my_data_type_extended data_ext; if(!$cast(data_ext, data)); `uvm_error(get_type_name(), "failed cast"); `uvm_info(get_name(), $psprintf("data_ext :\n%s", data_ext.sprint()), uvm_medium) // write data_ext out port.... endfunction when run it, i'm getting uvm_error "failed cast." i'm not quire sure why $cast not returning 1. can see, i'm printing out extended class data item after casting uvm_info. can see it's being cast properly. if don't use $cast if condition, don't runtime error. isn't coding practice use if dynamic cast check if $cast returning 1 ? what might reason behind cast not returning 1 in above case? i think semicolon on line 'if' not belong? i think consumes if statement, , uvm_error executes regardless of how if evaluates: if(!$cast(data_ext, data)); <- no semico...
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