使用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) 

它工作正常了我自己的问题。