module_tasks_overview: Module to visualize all the created tasks.
In shinybatch: Launch Tasks in Batch

Description Usage Arguments Value See Also Examples

Module to visualize all the created tasks.

tasks_overview_server(
  input,
  output,
  session,
  dir_path,
  allowed_run_info_cols = c("date_creation", "date_start", "date_end", "priority",
    "status"),
  allow_descr = TRUE,
  allowed_function_cols = c("path", "name"),
  allow_args = TRUE,
  allowed_status = c("waiting", "running", "finished", "error"),
  allow_log_btn = TRUE,
  allow_rm_task = TRUE,
  update_mode = c("reactive", "button"),
  intervalMillis = 1000,
  table_fun = function(x) x,
  return_value = c("selected_task", "tasks_table"),
  ...
)

tasks_overview_UI(
  id,
  labels = list(btn = "Display/update the tasks", empty_global =
    "Empty table of global features.", empty_individual =
    "Empty table of individual features.", error_dir_access =
    "Cannot access given directory.", logs = "Show logs", remove_task =
    "Remove this task ?")
)

`input`	shiny input
`output`	shiny input
`session`	shiny input
`dir_path`	`character`. Where to find the tasks directorys.
`allowed_run_info_cols`	`character` (c("date_creation", "date_start", "date_end", "priority", "status")). Run info elements to be kept.
`allow_descr`	`boolean or character` (TRUE). Either a boolean specifying whether or not to keep descr elements, or column names.
`allowed_function_cols`	`character` (c("names", "path")). Function elements to be kept.
`allow_args`	`boolean or character` (TRUE). Either a boolean specifying whether or not to keep args elements, or column names.
`allowed_status`	`character` (c("waiting", "running", "finished", "error")). Vector of allowed status.
`allow_log_btn`	`boolean` (TRUE). Whether or not to display a button to show log in modal.
`allow_rm_task`	`boolean` (TRUE). Whether or not to display a button to show log in modal.
`update_mode`	`character` : "reactive" (default) use `shiny::reactivePoll` to see if tasks info have changed. "button" add and use a `shiny::actionButton` to update task info table.
`intervalMillis`	`integer`. In case of "reactive" update_mode, time betweens calls
`table_fun`	`function` (function(x) x). Function to be applied on the summary table, making it easy to customize it. First arg must be the summmary table.
`return_value`	`character` : "selected_task" (default) return the selected task using `tasks_overview_UI`, else "tasks_table"can be used to get all tasks information and define a custom UI.
`...`	. Additional args to be given to the table_fun function.
`id`	`character`. shiny id to allow multiple instanciation.
`labels`	`list` UI labels

if return_value = "selected_task", the status of the selected line (one run) of the summary table and the path to the directory in which its output is stored. if return_value = "tasks_table", all tasks information table

configure_task_server

if(interactive()){

require(shiny)

# create temporary directory for conf
dir_conf <- paste0(tempdir(), "/conf", round(runif(n = 1, max = 10000)))
dir.create(dir_conf, recursive = TRUE)

# ex fun
fun_path = system.file("ex_fun/sb_fun_ex.R", package = "shinybatch")
fun_name = "sb_fun_ex"

# create 2 confs
conf_1 <- configure_task(dir_path = dir_conf,
                         conf_descr = list(title = "my_title_1",
                                           description = "my_descr_1"),
                         fun_path = fun_path,
                         fun_name = fun_name,,
                         fun_args = list(x = 1,
                                         y = 0:4,
                                         z = iris),
                         priority = 1)
conf_2 <- configure_task(dir_path = dir_conf,
                         conf_descr = list(title = "my_title_2",
                                           description = "my_descr_2"),
                         fun_path = fun_path,
                         fun_name = fun_name,
                         fun_args = list(x = 1,
                                         y = 0:4,
                                         z = iris),
                         priority = 2)

run_task(paste0(conf_2$dir, "conf.yml"))

# with package ui
ui <- shiny::fluidPage(
  tasks_overview_UI("my_id_1"),
  hr(),
  verbatimTextOutput("info")
)

server <- function(input, output, session) {
  selected_task <- callModule(tasks_overview_server, "my_id_1",
             dir_path = dir_conf,
             allowed_status = c("waiting", "running", "finished", "error"),
             allowed_run_info_cols = NULL,
             allowed_function_cols = "",
             allow_descr = TRUE,
             allow_args = TRUE,
             table_fun = function(x, y) x[, new_col := y],
             y = "created using arg. 'table_fun'")

  output$info <- renderPrint({
    selected_task()
  })
}
shiny::shinyApp(ui = ui, server = server)

# using custom ui
ui <- shiny::fluidPage(
  verbatimTextOutput("info")
  # and so define what you want !
)

server <- function(input, output, session) {
  all_tasks_info <- callModule(tasks_overview_server, "my_id_1",
             dir_path = dir_conf,
             return_value = "tasks_table"
  )

  output$info <- renderPrint({
    all_tasks_info()
  })
}
shiny::shinyApp(ui = ui, server = server)

}