R Shiny conditionalPanel displays when condition is not met -


this follow-up detailed example of question (no answer came through): conditionalpanel in shiny (doesn't seem work)

example app: displays panels ("list1", "list2", etc.) based on user-selection. "list3" not selected , should not display.

ui.r

displaylist <- c("list1", "list2", "list3")  shinyui(pagewithsidebar(   headerpanel("shiny display list"),    sidebarpanel(     checkboxgroupinput('dlist', 'display list:', displaylist, selected = displaylist[1:2])   ),    mainpanel(     h4("display list"),      conditionalpanel(condition = "length(intersect(input.dlist, displaylist[1])) > 0",       p("some list 1 entries")     ),      conditionalpanel(condition = "length(intersect(input.dlist, displaylist[2])) > 0",       p("some list 2 entries")     ),      conditionalpanel(condition = "length(intersect(input.dlist, displaylist[3])) > 0",       p("some list 3 entries") #wasn't selected, should not display     )   ) ))

server.r

shinyserver(function(input, output) {   observe({cat(input$dlist, "\n")})   observe({cat(length(intersect(input$dlist, "list3")))}) })

to test if condition met, ran observe in server.r , output shows indeed condition not met panel 3 ("0" below).

list1 list2  0

but, app still displays "list3"

enter image description here

any idea why? did try different forms of condition (instead of using intersect etc.) no success.

edit answer

as @nstjhp & @julien navarre point out, conditionalpanel "condition" needs in javascript. example above works follows:

conditionalpanel(condition = "input.dlist.indexof('list1') > -1",       p("some list 1 entries")     )

as @nstjhp said condition has in javascript conditional panel, can't insert r logic here.

if want control inputs r syntax can use renderui :

for example :

output$panel = renderui({     if(input$dlist[1] == true) {         display      } else if  .....

though condition isn't different in javascript in case. it's juste : condition = "input.dlist[0]". note in javascript indexes start 0 , not 1 in r.

your main panel :

mainpanel(   h4("display list"),    conditionalpanel(condition = "input.dlist[0]",                    p("some list 1 entries")   ),    conditionalpanel(condition = "input.dlist[1]",                    p("some list 2 entries")   ),    conditionalpanel(condition = "input.dlist[2]",                    p("some list 3 entries")   ) )

Comments

Post a Comment

Popular posts from this blog

Android layout hidden on keyboard show -

i have strange problem layout. when tap on edittext , keyboard shown edittext stay on bottom , when tap on to hide keyboard , keyboard hides , edittext go should when want input text. when tap again, keyboard shown , edittext goes down behind keyboard... <relativelayout android:layout_width="match_parent" android:layout_height="match_parent" > <scrollview android:layout_width="match_parent" android:layout_height="fill_parent" android:above="@+id/rl_commands"> <textview android:layout_width="match_parent" android:layout_height="wrap_content"/> </scrollview> <relativelayout android:layout_width="match_parent android:layout_height="24dp" android:id="@+id/rl_commands" android:alignparentbottom="true">
Read more

google app engine - 403 Forbidden POST - Flask WTForms -

i have flask application running on google app engine. trying submit form built using wtform , keep getting following error. 403 forbidden: don't have permission access requested resource. either read-protected or not readable server. location.html (part of code) <form method=post action="/home/location"> .... <button type="submit" class="btn btn-primary" value="submit"> directions </button> </form> main.py @app.route('/home/location', methods=['post', 'get']) def location(): form = cfcdirections.direction(request.form) print(request.method) if request.method == 'post' , form.validate(): print("after if") directions = cfcdirections() street_no = directions.no street = directions.street suburb = directions.suburb postcode = directions.postcode
Read more

c - Why would PK11_GenerateRandom() return an error -8023? -

i looking through internet trying find source of pk11_generaterandom() function see why function fail. have program uses function when moved new flavor of linux, fails after forking ( fork() ) since not believe there problem nss, suspect doing incorrectly disregarded in older versions of linux new 1 there issue. the openssl package same on 'good' , 'bad' server: openssl 0.9.8e-fips-rhel5 01 jul nss rpm differs though. 'good' has nss-3.12.2.0-2.el5 and bas has version nss-3.15.3-4.el5_10 the 'good' server uses quite obsolete linux: linux 2.6.18-128.el5 #1 smp wed jan 21 08:45:05 est 2009 x86_64 x86_64 x86_64 gnu/linux enterprise linux enterprise linux server release 5.3 (carthage) red hat enterprise linux server release 5.3 (tikanga) the 'bad' server newer: linux bad 2.6.18-371.4.1.el5 #1 smp wed jan 29 11:05:49 pst 2014 x86_64 x86_64 x86_64 gnu/linux oracle linux server release 5.10 red hat enterprise linux server release
Read more