r - updateCheckBoxGroupInput in shiny based on selection of other checkboxes -


my shiny application has multiple tabs. in 1 of tabs have plot output want use create reports in tab. have included checkbox in first tab user select output reporting. in second tab trying update check box group input based on selection of first tab. getting first option selected.

the reproducible code follows: based on ifelse condition:

library(shiny) library(shinydashboard)  ui <- dashboardpage(                    dashboardheader(                        title = "module",titlewidth = 225                    ),                    dashboardsidebar(                        width = 225,                        sidebarmenu(id = "tabs",                                    menuitem("toplines", tabname = "tplines", icon = shiny::icon("dashboard")),                                    menuitem("my monthly reports", tabname = "myweeklyrep", icon = shiny::icon("compass"))                        )),                    dashboardbody(                        tabitems(                            tabitem(                                tabname = "tplines",                                fluidrow(                                    box(                                        checkboxinput(inputid = "inventorytop8metrocheck", "add reports", value = false),                                        width = 6, status = "info", title = "inventory information",                                        div(plotlyoutput("inventorytop8metro"), width = "100%", height = "400px", style = "font-size:80%;")                                    ),                                    box(                                        checkboxinput(inputid = "top15categoriestplinescheck", "add reports", value = false),                                        width = 6, status = "info", title = "top 15 categories",                                        div(plotlyoutput("top15categoriestplines"), style = "font-size:90%")                                    ))),                            tabitem(                                tabname = "myweeklyrep",                                fluidrow(                                    h4("available analysis", align = 'center'),br(),                                    column(width = 12,                                            list(tags$div(align = 'left',                                                          class = 'multicol',                                                          checkboxgroupinput(inputid  = 'analysisselector',                                                                             label = "select analysis:",                                                                            choices  = "",                                                                            selected = "",                                                                            inline   = false)))                                    ))))))  server <- function(session,input,output){     observe({             updatecheckboxgroupinput(session, inputid = "analysisselector", label = "", choices =                                           ifelse(!is.null(input$top15categoriestplinescheck) || length(input$top15categoriestplinescheck) != 0, "inventory top 8 metros",                                             ifelse(!is.null(input$inventorytop8metrocheck) || length(input$inventorytop8metrocheck) != 0, "top 15 categories - topline", "no selection")),                                      selected = "",inline = false)      }) }  shinyapp(ui,server)

i tried if, else if aren't working. thoughts?

the if, else if conditions:

    updatecheckboxgroupinput(session, inputid = "analysisselector", label = "", choices =                                   if(!is.null(input$top15categoriestplinescheck) || length(input$top15categoriestplinescheck) != 0){                                      "inventory top 8 metros"                                  } else if (!is.null(input$inventorytop8metrocheck) || length(input$inventorytop8metrocheck) != 0){                                      "top 15 categories - topline"                                  } else {                                      return()                                  },                              selected = "",inline = false)

edit:

i tried following option: renders checkboxes irrespective of whether selected or not.

getlist <- reactive({         if(!is.null(input$top15categoriestplinescheck) & !is.null(input$inventorytop8metrocheck)){             c("top 15 categories - topline","inventory of top 8 metros - topline")         } else if (!is.null(input$top15categoriestplinescheck)){             "abc"         } else if (!is.null(input$inventorytop8metrocheck)){             "def"         } else {             return()         }     })      observe({             updatecheckboxgroupinput(session, inputid = "analysisselector", label = "select analysis:", choices =                                           as.list(getlist()),                                      selected = "",inline = false)                 })

this easier handle observeevent explained in documentation of function (see ?observeevent). understand, wraps observe in more intuitive way.

you have pass 2 arguments: event (in case, click on 1 of checkboxgroupinputs) , action perform when event occurs.

the server function becomes: 

server <- function(session,input,output){     updateanalysisselector <- function(session) {         choices <- ifelse(input$top15categoriestplinescheck, "inventory top 8 metros",                           ifelse(input$inventorytop8metrocheck, "top 15 categories - topline", "no selection"))         updatecheckboxgroupinput(session,                                   inputid = "analysisselector",                                   label = "select analysis:",                                   choices = choices,                                  selected = "",                                  inline = false)     }    observeevent(input$top15categoriestplinescheck, updateanalysisselector(session))   observeevent(input$inventorytop8metrocheck, updateanalysisselector(session)) }

i'm sure simplified if ui did not have 2 separate checkbox groups works current implementation.


-

Comments

Post a Comment

Popular posts from this blog

scala - 'wrong top statement declaration' when using slick in IntelliJ -

Image
i'm porting project scala 2.9 2.10, therefore have use slick instead of scalaquery. i'm using slick 2.1.0 since supports ms access. according this tutorial , upgrade guide changed robs object class , added val robs : why error message wrong top statement declaration , how rid of it? edit: i'm new scala... according this question seems can't put val outside of methods or classes, right? code above directly in packge. right approach slick then? should move code in class or trait? according this changed val robs = tablequery[robs] to object robs extends tablequery(new robs(_)) {} . no warnings or errors anymore. :)
Read more

c# - DevExpress.Wpf.Grid.InfiniteGridSizeException was unhandled -

Image
when using devexpress, see error: devexpress.wpf.grid.infinitegridsizeexception unhandled message="by default, infinite grid height not allowed since grid rows rendered , hence grid work slowly. fix issue, should place grid container give finite height grid, or should manually specify grid's height or maxheight. note can avoid exception setting gridcontrol.allowinfinitegridsize static property true, in case grid run slowly." the problem dxgrid has infinite height. to fix, set height non-infinite. snoop absolutely invaluable this: if "height" xaml element infinite (i.e. 0 or nan ), can set using one of following: option 1: height="{binding path=actualheight, relativesource={relativesource mode=findancestor, ancestortype=uielement}}" option 2: verticalalignment="stretch" option 3: height="auto" hint: use verticalalignment="stretch" if child of grid <rowdefinition height=
Read more

PySide and Qt Properties: Connecting signals from Python to QML -

i trying run simple pyside appliccation design made in qml. call function in qml python in separated thread. i have following qml view: import qt 4.7 rectangle { visible: true width: 100; height: 100 color: "lightgrey" text { id: datestr objectname: "datestr" x: 10 y: 10 text: "init text" font.pixelsize: 12 function updatedata(text) { datestr.text = qstr(text) console.log("you said: " + text) } } } here application: some imports.... #!/usr/bin/python import sys import time pyside import qtdeclarative, qtcore pyside.qtgui import qapplication pyside.qtdeclarative import qdeclarativeview the qthread worker.... #worker thread class worker(qtcore.qthread): updateprogress = qtcore.signal(int) def __init__(self, child): qtcore.qthread.__init__(self) self.child = child def run(self):
Read more