R/fct_engagement_tbl.R

In NCC-CNC/impact: Extract Conservation Themes to Project Management Plans

# Create an empty table to render
eng_empty_table <- function() {

  attributes <- c("Territories", "Languages", "Treaties", "Description")
  eng_df <- data.frame(attributes, values_pulled = NA)
  colnames = c("", "")
  ordering = FALSE

  # Render empty table
  eng_dt <- DT::datatable(
    class = 'cell-border stripe',
    escape = FALSE,
    eng_df,
    rownames = FALSE,
    colnames = colnames,
    extensions = c('FixedColumns',"FixedHeader"),
    options = list(dom = 't',
      ordering = ordering,
      scrollX = TRUE,
      paging=FALSE,
      fixedHeader=TRUE,
      fixedColumns = list(leftColumns = 1, rightColumns = 0)
    )
  )
  return(eng_dt)
}

# Create native-lands.ca table
eng_table <- function(oid, nl_ncc) {


  # Extract attributes
  native_lands <- nl_ncc %>% filter(OBJECTID == oid)
  territories <- paste(purrr::discard(unique(native_lands$Name_TER), is.na), collapse = '<br>')
  languages <-  paste(purrr::discard(unique(native_lands$Name_LAN), is.na), collapse = '<br>')
  treaties <- paste(purrr::discard(unique(native_lands$Name_TRE), is.na), collapse = '<br>')
  description <-  purrr::discard(unique(native_lands$description_TER), is.na)
  link <- paste(paste0("<a href='",description,"' target='blank'>",description,"</a>"), collapse = '<br>')

  # Build data frame
  attributes <- c("<b>Territories</b>", "<b>Languages</b>", "<b>Treaties</b>", "<b>Description</b>")
  values_pulled <- c( territories, languages, treaties, link)

  #  1 property per column, used to for DT::replaceData
  eng_df <- data.frame(attributes, values_pulled)

}


#nl_ncc <-  geojsonsf::geojson_sf(file.path("inst", "extdata", "native_lands", "native_lands_ncc.geojson"))
#df <- eng_table(447683, nl_ncc)