Репликация графика selectInput с использованием sliderInput

Question

Данный скрипт обновляет график process_map() в R блестящий, используя selectInput. Я хочу повторить ту же функциональность, используя 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 the 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)

Answer 1

Я просто понял, что ползунку нужен числовой ввод, чтобы обновить сюжет, поэтому включил то же самое

sliderInput("activities", "Select the activities", 0.1, 1.0, 0.1 )

Это работает нормально для моей собственной проблемы.