相关疑难解决方法(0)

我写这篇文章是为了寻求一些帮助,使用计划(多进程)或计划(多核)并在我闪亮的应用程序中杀死长时间运行的进程.该应用程序具有多个未来事件(长时间运行的进程),这些事件在单击其相应的actionButton时运行.下面是app中服务器函数中使用的future()命令的示例应用程序.我一直在使用stopMulticoreFuture(fut)来杀死进程.

library(shiny)
library(shinydashboard)
library(promises)
plan(multicore)
library(ipc)
sidebar <- dashboardSidebar(width = 200, sidebarMenu(id = "tabs",
                                                     menuItem("File", tabName = "tab1", icon = icon("fas fa-file"))))
body <- tabItem(tabName = "tab1",h2("Input File"),
                fluidRow(tabPanel(
                    "Upload file",
                    value = "upload_file",
                    fileInput(
                      inputId = "uploadFile",
                      label = "Upload Input file",
                      multiple = FALSE,
                      accept = c(".txt")
                    ),
                    checkboxInput('header', label = 'Header', TRUE)
                  ),
                  box(
                    title = "Filter X rows",
                    width = 7,
                    status = "info",
                    tabsetPanel(
                      id = "input_tab",
                      tabPanel(
                        "Parameters",
                        numericInput(
                          "nrows",
                          label = "Entire number …