R/mod_source.R

In jl5000/shinyged: Edit GEDCOM Files Interactively

source_ui <- function(id) {
  ns <- shiny::NS(id)
  
  shiny::tagList(
    shiny::tags$br(),
    shiny::fluidRow(
      shiny::column(6,
                    shiny::selectizeInput(ns("record"), label = NULL, choices = NULL,
                                          multiple = TRUE, width = "500px", options = list(maxItems = 1))
      ),
      shiny::column(6,
                    shiny::actionButton(ns("add"), "Add source"),
                    shiny::actionButton(ns("delete"), "Delete source")
      )
      
    ),
    
    shiny::fluidRow(id = ns("sour_data"),
                    shiny::column(12,
                                  ref_numbers_ui(ns("sour_ref_numbers")),
                                  notes_ui(ns("sour_notes")),
                                  media_links_ui(ns("sour_media")),
                    )
    ) |> shinyjs::hidden(),
    
    shiny::br(),
    
    shiny::fluidRow(id = ns("sour_tabs"),
                    shiny::column(12,
                                  shiny::tabsetPanel(id = ns("tabset"),
                                                     shiny::tabPanel("Summary", source_summary_ui(ns("sour_summary"))),
                                                     shiny::tabPanel("Data", source_data_ui(ns("sour_data"))),
                                                     shiny::tabPanel("Details", source_details_ui(ns("sour_details"))),
                                                     shiny::tabPanel("Raw data", record_ui(ns("sour_raw")))
                                  )
                    )
    )  |> shinyjs::hidden()
    
  )
}

source_server <- function(id, r) {
  moduleServer(id, function(input, output, session) {
    
    ref_numbers_server("sour_ref_numbers", r, "sour_rows")
    notes_server("sour_notes", r, "sour_rows")
    media_links_server("sour_media", r, "sour_rows")
    source_summary_server("sour_summary", r)
    
    shiny::observe(source_data_server("sour_data", r)) |>
      shiny::bindEvent(input$tabset == "Data", once = TRUE, ignoreInit = TRUE)
    
    shiny::observe(source_details_server("sour_details", r)) |>
      shiny::bindEvent(input$tabset == "Details", once = TRUE, ignoreInit = TRUE)
    
    shiny::observe(record_server("sour_raw", r, "sour_rows")) |>
      shiny::bindEvent(input$tabset == "Raw data", once = TRUE, ignoreInit = TRUE)

    # Update list of sources ---------------------------------------------------------------
    records <- shiny::reactive({
      req(r$ged)
      
      tidyged::describe_records(r$ged, tidyged::xrefs_sour(r$ged), short_desc = TRUE)
    })
    
    # Update choices with list of sources and select one ----------------------------------
    shiny::observe({
      if(!is.null(records())) {
        
        if(is.null(r$sour_to_select)) {
          current_selection <- input$record
        } else {
          current_selection <- r$sour_to_select
        }
        
        shiny::updateSelectizeInput(inputId = "record", choices = records(), selected = current_selection)
      } else {
        shiny::updateSelectizeInput(inputId = "record", choices = character(), selected = character())
      }
      r$sour_to_select <- NULL
    }) |> 
      shiny::bindEvent(records())
    
    # Update sour_rows --------------------------------------------------------------------
    shiny::observe(priority = 2, {
      req(input$record)
      sour_xref <- stringr::str_extract(input$record, tidyged.internals::reg_xref(FALSE))
      r$sour_rows <- which(r$ged$record == sour_xref)
    }) |> 
      shiny::bindEvent(input$record, r$ged)
    
    # Show/hide tabs and toggle delete button ---------------------------------------------
    shiny::observe({
      shinyjs::toggle("sour_tabs", condition = !is.null(input$record))
      shinyjs::toggle("sour_data", condition = !is.null(input$record))
      shinyjs::toggleState("delete", !is.null(input$record))
    }) |> 
      shiny::bindEvent(input$record, ignoreNULL = FALSE)
    
    # Add source and set a flag to ensure it is selected ---------------------------------
    shiny::observe({
      r$ged <- tidyged::add_sour(r$ged)
      sour_xrefs <- tidyged::xrefs_sour(r$ged)
      last_sour <- tail(sour_xrefs, 1)
      r$sour_to_select <- tidyged::describe_records(r$ged, last_sour, short_desc = TRUE)
    }) |> 
      shiny::bindEvent(input$add)
    
    # Remove source and set a flag to ensure no source is selected -----------------------
    shiny::observe({
      sour_xref <- stringr::str_extract(input$record, tidyged.internals::reg_xref(FALSE))
      r$ged <- tidyged::remove_sour(r$ged, sour_xref)
      shiny::showNotification("Source deleted")
      r$sour_to_select <- NULL
    }) |> 
      shiny::bindEvent(input$delete)
    

  })
}