r - Dynamically add and remove uiOutput elements based on index using actionButtons -

-

i'm trying add , remove uioutput elements using index keep track of each individual element. there actionbutton adding , element list, , x button each element removes selected item, in image below:

shiny dynamic elements example

i'm using single .rmd file includes both ui , server code. current solution (with cannot produce desired functionality shown above---it nothing) following:

actionbutton("addfilter", "add filter", icon=icon("plus", class=null, lib="font-awesome"))  <- 0  observeevent(input$addfilter, {   <<- + 1   uioutput(paste("filterpage",i,sep=""))    output[[paste("filterpage",i,sep="")]] = renderui({     fluidpage(       fluidrow(         column(6, selectinput(paste("filteringfactor",i,sep=""), "choose factor filter by:",                               choices=c("factor a", "factor b", "factor c"), selected="factor b",                               width="100%")),         column(6, actionbutton(paste("removefactor",i,sep=""), "",                                icon=icon("times", class = null, lib = "font-awesome")))       )     )   })    observeevent(input[[paste("removefactor",i,sep="")]], {     output[[paste("filterpage",i,sep="")]] = renderui({})   })  })

when put uioutput , remove-button observeevent outside of add-button observeevent code works, need have separate statement per index, follows:

uioutput(paste("filterpage",1,sep="")) uioutput(paste("filterpage",2,sep="")) uioutput(paste("filterpage",3,sep="")) uioutput(paste("filterpage",4,sep=""))  actionbutton("addfilter", "add filter", icon=icon("plus", class=null, lib="font-awesome"))  <- 0  observeevent(input$addfilter, {   <<- + 1   output[[paste("filterpage",i,sep="")]] = renderui({     fluidpage(       fluidrow(         column(6, selectinput(paste("filteringfactor",i,sep=""), "choose factor filter by:",                               choices=c("factor a", "factor b", "factor c"), selected="factor b",                               width="100%")),         column(6, actionbutton(paste("removefactor",i,sep=""), "",                                icon=icon("times", class = null, lib = "font-awesome")))       )     )   }) })  observeevent(input[[paste("removefactor",1,sep="")]], {   output[[paste("filterpage",1,sep="")]] = renderui({}) }) observeevent(input[[paste("removefactor",2,sep="")]], {   output[[paste("filterpage",2,sep="")]] = renderui({}) }) observeevent(input[[paste("removefactor",3,sep="")]], {   output[[paste("filterpage",3,sep="")]] = renderui({}) }) observeevent(input[[paste("removefactor",4,sep="")]], {   output[[paste("filterpage",4,sep="")]] = renderui({}) })

i couldn't make loop or lapply call work (it looks scoping problem not understand). number of elements not known in advance hardcoding values not work me. know how make work? thanks.

i have fix you, might not beautiful on backend, makes life easy. i'd suggest nest elements within each other. make uioutput number i contain uioutput next one. way, can add them successively without needing worry size or total number of elements. performance-wise okay, since don't think creating thousands of filters. see code more details.

for deleting, have seen it's tedious keep track of button input values. i'd suggest design 1 variable observe, tells element number, has been clicked. can achieve custom onclick function our buttons, sending button number 1 single input variable. might want make familiar javascript client function shiny.oninputchange. briefly: sends value r backend under given variable name.

deleting corresponding ui element easy.

if want more , design more clear, more fine solution, try this page , related questions. there can input on how design , add chunks of dynamic ui document without commonly used single uioutput wrapper.

code below (i made regular ui-server app):

library(shiny)  ui <- shinyui(   fluidpage(      actionbutton("addfilter", "add filter", icon=icon("plus", class=null, lib="font-awesome")),      uioutput("filterpage1")   ) )  server <- function(input, output){   <- 0    observeevent(input$addfilter, {     <<- + 1     output[[paste("filterpage",i,sep="")]] = renderui({       list(         fluidpage(           fluidrow(             column(6, selectinput(paste("filteringfactor",i,sep=""), "choose factor filter by:",                                 choices=c("factor a", "factor b", "factor c"), selected="factor b",                                 width="100%")),             column(6, actionbutton(paste("removefactor",i,sep=""), "",                                  icon=icon("times", class = null, lib = "font-awesome"),                                  onclick = paste0("shiny.oninputchange('remove', ", i, ")")))           )         ),         uioutput(paste("filterpage",i + 1,sep=""))       )     })   })    observeevent(input$remove, {     <- input$remove      output[[paste("filterpage",i,sep="")]] <- renderui({uioutput(paste("filterpage",i + 1,sep=""))})   }) }  shinyapp(ui, server)

Comments

Post a Comment

Popular posts from this blog

ios - RestKit 0.20 — CoreData: error: Failed to call designated initializer on NSManagedObject class (again) -

-
this error has shown on many times, seems. prominent answer issue seems restkit 0.20 — coredata: error: failed call designated initializer on nsmanagedobject class however, solution posted doesn't work me. let's start beginning: i want upload file server. want parse response make sure uploaded. if not, try again later. model has boolean variable called nsnumber *senttoserver purpose (in coredata, bool saved nsnumber ) . because don't know whether sending going successful, save entity coredata model first before sending via restkit. when post request successful, server returns json string this: {"id":14,"created":true} notice that, of course, id not set on coredata model yet, both id , created new informations model. here's model: @interface recording : nsmanagedobject @property (nonatomic, retain) nsstring * audiofilepath; @property (nonatomic, retain) nsdate * createdat; @property (nonatomic, retain) nsstring * deviceid; @...
Read more

java - Digest auth with Spring Security using javaconfig -

-
so i'm trying create digest authentication spring following documentation trying translate xml "requirements" in java requirements. let's have xml in docs: <bean id="digestfilter" class= "org.springframework.security.web.authentication.www.digestauthenticationfilter"> <property name="userdetailsservice" ref="jdbcdaoimpl"/> <property name="authenticationentrypoint" ref="digestentrypoint"/> <property name="usercache" ref="usercache"/> </bean> <bean id="digestentrypoint" class= "org.springframework.security.web.authentication.www.digestauthenticationentrypoint"> <property name="realmname" value="contacts realm via digest authentication"/> <property name="key" value="acegi"/> <property name="noncevalidityseconds" value="10"/> </b...
Read more

laravel - PDOException in Connector.php line 55: SQLSTATE[HY000] [1045] Access denied for user 'root'@'localhost' (using password: YES) -

-
my .env: app_env=local app_debug=true app_key=myappkey app_url=http://localhost db_connection=mysql db_host=localhost db_port=3306 db_database=gestiontaller db_username=root db_password='root' cache_driver=file session_driver=file queue_driver=sync redis_host=127.0.0.1 redis_password=null redis_port=6379 mail_driver=smtp mail_host=mailtrap.io mail_port=2525 mail_username=null mail_password=null mail_encryption=null i've tried password ", ' , without, restarting server every time. i've tried changing localhost 172.0.0.1. yes, password correct, running mysql -u root -p introducing password root in prompt can go mysql. users table: +------------------+-----------+ | user | host | +------------------+-----------+ | debian-sys-maint | localhost | | mysql.sys | localhost | | root | localhost | | root1 | localhost | +------------------+-----------+ i've added homestead.yaml this: database_port: 3306 ...
Read more