dd_animal_source.R

animal_source<-
  
  list(
    
    data.frame(
      Variable="SourceSpecies",
      Label="Animal Source Species", 
      Definition="The Animal Source species",
      Type="Single selection",
      Mandatory="Yes"),
    
    data.frame(
      Variable="SourceSex",
      Label="Source Species Sex", 
      Definition="The Source Sex",
      Type="Single selection",
      Mandatory="Yes"),
    
    data.frame(
      Variable="SourcePreviousMarkingCode",
      Label="Animal Source Previous Marking Code", 
      Definition="A known marking code of the Animal Source, if any, before the current marking code, if any",
      Type="String",
      Mandatory="No"),
    
    data.frame(
      Variable="AnimalSourceFromGroupSource", #(of the GRoup)
      Label="Animal Source From Group Source", 
      Definition="Answer to the question: 'Is the Animal Source coming from a Group Source
      to be now considered as a specific individual?'",
      Type="Boolean",
      Mandatory="Yes"),
    
    data.frame(
      Variable="AnimalSourceFromGroupSourceGroupID", #(of the GRoup)
      Label="Animal Source From Group Source Group ID", 
      Definition="The ID of the Group Source that the Animal Source belonged to",
      Type="String",
      Mandatory="Yes")
  )

animal_source<-
  animal_source %>% bind_rows() |> 
  gt::gt() %>%
  gt::tab_options(table.font.size = 8) %>%
  gt::cols_width(Variable ~ gt::pct(22),
                 Label ~ gt::pct(20),
                 Definition ~ gt::pct(30),
                 Type~ gt::pct(13),
                 Mandatory~ gt::pct(15)) %>%
  gt::tab_style(
    style = cell_text(size = px(15), weight = "bold"),
    locations = cells_column_labels())