inst/shiny-app/server/match_word/cite.R

In JackEdTaylor/LexOPS: A Package and Shiny App for Generating Matched Stimuli

# render a table that suggests sources that need citing
output$match_citations <- DT::renderDataTable({

  if (match_filterby_boxes_N() > 0 | match_matchby_boxes_N() > 0) {
    # get the filters
    filter_opts <- if (match_filterby_boxes_N() > 0) sapply(match_filter_opts_react(), function(x) x$var) else c()

    # get the matches
    match_opts <- if (match_matchby_boxes_N() > 0) sapply(match_matchby_opts_react(), function(x) x$var) else c()

    # get the table
    c(filter_opts, match_opts) %>%
      LexOPS::citation_table() %>%
      dplyr::mutate(url = ifelse(
        is.na(url),
        NA,
        sprintf("<a href=\"%s\" target=\"_blank\", class=\"btn btn-primary\">Link to Source</a>", url)
      )) %>%
      dplyr::rename(
        Variable = var,
        Measure = measure,
        Source = source,
        Paper = url
      ) %>%
      DT::datatable(options = list(
        paging = FALSE,
        searching = FALSE,
        dom = "t"
      ), escape = FALSE)
  } else {
    NULL
  }

})