R/mod_file.R

In jl5000/shinyged: Edit GEDCOM Files Interactively

file_ui <- function(id) {
  ns <- shiny::NS(id)
  
  shiny::tagList(
    shiny::tags$br(),
    
    shiny::tabsetPanel(id = ns("tabset"),
      shiny::tabPanel("Summary", file_summary_ui(ns("file_summary"))),
      shiny::tabPanel("Records", file_records_ui(ns("file_records"))),
      shiny::tabPanel("File details", file_details_ui(ns("file_details"))),
      shiny::tabPanel("Source data details", file_data_ui(ns("file_data"))),
      shiny::tabPanel("Submitter", submitter_ui(ns("subm")))
    )
  )
}

file_server <- function(id, r) {
  moduleServer(id, function(input, output, session) {
    
    file_summary_server("file_summary", r)
    
    shiny::observe(file_details_server("file_details", r)) |>
      shiny::bindEvent(input$tabset == "File details", once = TRUE, ignoreInit = TRUE)
    
    shiny::observe(file_records_server("file_records", r)) |>
      shiny::bindEvent(input$tabset == "Records", once = TRUE, ignoreInit = TRUE)
    
    shiny::observe(submitter_server("subm", r)) |>
      shiny::bindEvent(input$tabset == "Submitter", once = TRUE, ignoreInit = TRUE)
    
    shiny::observe(file_data_server("file_data", r)) |>
      shiny::bindEvent(input$tabset == "Source data details", once = TRUE, ignoreInit = TRUE)

    shiny::observe(priority = 2, { # want this to fire first
      req(r$ged)
      r$head_rows <- which(r$ged$record == "HD")
      r$head_file_sour_rows <- tidyged.internals::identify_section(r$ged, 1, "SOUR", 
                                                                   xrefs = "HD", first_only = TRUE)
    }) |> 
      shiny::bindEvent(r$ged)
    

  })
}