sliderInputを使用してselectInputプロットを複製する

Question

与えられたスクリプトは、 selectInputを使用してR shinyのprocess_map（）プロットを更新します。 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) 

を取り入れ、プロットを更新するために、数値入力を必要とスライダーを実現しました。