r - Replicating selectInput plot using sliderInput -
the given script updates process_map() plot in r shiny using selectinput. wish replicate same functionality using sliderinput.
library(shiny) library(shinydashboard) library(bupar) library(edear) library(eventdatar) library(processmapr) library(processmonitr) library(xesreadr) library(petrinetr) ui <- dashboardpage( dashboardheader(), dashboardsidebar( selectinput("resources","select resource", c("r1","r2","r3","r4","r5"),selected = "r1",selectize = t, multiple = t) ), dashboardbody( uioutput("ui") )) server <- function(input, output) { output$ui <- renderui({ r <- input$resources taglist(filter_resource(patients,resources = r, reverse = f) %>% process_map()) }) } shinyapp(ui, server)
i realized slider needed numeric input update plot, hence incorporated same
sliderinput("activities", "select activities", 0.1, 1.0, 0.1 )
it working fine own problem.
Comments
Post a Comment