Использование библиотеки bupaR для создания карты процесса в Shiny Dashboard
Следующий скрипт R создает блестящую страницу панели инструментов с двумя кнопками и одним участком графика. Вторая кнопка "Обработка" работает нормально, но первая кнопка "Ресурс" создает график process_map() за пределами блестящей страницы в области вывода. Мне нужна функциональность, при которой, когда я нажимаю кнопку "Ресурс", она дает мне меню фильтра с использованием "ifilter_resource", сообщает, что я должен выбрать ресурсы для фильтрации, и происходит изменение с картой процесса, созданной на блестящей странице., Пожалуйста, помогите и большое спасибо.
## app.R ##
library(bupaR)
library(edeaR)
library(eventdataR)
library(processmapR)
library(processmonitR)
library(xesreadR)
library(petrinetR)
ui <- dashboardPage(
dashboardHeader(title = "Business Process Mining"),
dashboardSidebar(
width = 0,
conditionalPanel(condition = "input.tabselected == 1")
),
dashboardBody(
# Creation of tabs and tabsetPanel
tabsetPanel(type = "tab",
tabPanel("Overview", value = 1,
fluidRow(
column(1,
tags$br(actionButton("buttonprocmapone",
"Resource")),
tags$br(),
tags$br(actionButton("buttonprocmaptwo",
"Processing"))
),
tags$br(),
column(10,
plotOutput("proc_map_plot")
))
))))
server <- function(input, output) {
#Code for Resource Dashboard Resource Involvement Plots
proc_map <- reactiveValues(proc_map_one = 0, proc_map_two = 0)
observeEvent(input$buttonprocmapone, {
proc_map$proc_map_one <- 1
proc_map$proc_map_two <- 0
})
observeEvent(input$buttonprocmaptwo, {
proc_map$proc_map_one <- 0
proc_map$proc_map_two <- 1
})
output$proc_map_plot <- renderPlot(
{
if(proc_map$proc_map_one)
pt1 = ifilter_resource(patients)
pt1 %>% process_map()
else
if(proc_map$proc_map_two)
patients %>%resource_involvement("resource") %>% plot
else
return()
}
)
}
shinyApp(ui, server)