dd_event.R

event<-
  
  list(
    
    data.frame(
      Variable="EventID",
      Label="Event Identifier",
      Definition="System-provided Event identifier",
      Type="Integer",
      Mandatory="System-assigned"), 
    
    data.frame(
      Variable="EventCode",
      Label="Event Code",
      Definition="User-provided Event code",
      Type="String",
      Mandatory="Yes"),
    
    data.frame(
      Variable="EventCrossID",
      Label="Event Cross Identifier", 
      Definition="The identifier of an Event in another system (e.g., database/document/other)",
      Type="String",
      Mandatory="No"), 
    
    data.frame(
      Variable="EventCrossIDOrigin",
      Label="Event Cross Identifier Origin", 
      Definition="The database/document/other where other identification 
      for the same Event is used",
      Type="String",
      Mandatory="No"),
    
    data.frame(
      Variable="EventDate",
      Label="Event Date", 
      Definition="The date and time of the Event. Observation, capture, patrol, or collection efforts
      can be established in the Collection associated fields",
      Type="String",
      Mandatory="Yes"), 
    
    data.frame(
      Variable="EventLongitude",
      Label="Longitude", 
      Definition="Longitude coordinate. Non decimal degree coordinates are automatically converted. 
      If coordinates are provided in UTM, then the UTM zone must be provided (see below)",
      Type="Float",
      Mandatory="Yes"), 
    
    data.frame(
      Variable="EventLatitude",
      Label="Latitude", 
      Definition="Latitude coordinate. Non decimal degree coordinates are automatically converted. 
      If coordinates are provided in UTM, then the UTM zone must be provided (see below)",
      Type="Float",
      Mandatory="Yes"), 
    
    data.frame(
      Variable="EventUTMZone",
      Label="Event UTM Zone", 
      Definition="UTM Zone where the Event occurs. It applies if the longitude an latitude odf
      the Event are provided in UTM coordinate reference system. 
      See https://www.dmap.co.uk/utmworld.htm",
      Type="Float",
      Mandatory="Yes"),   
    
    data.frame(
      Variable="EventCoordinatesExactOrEstimated",
      Label="Event Coordinates Exact Or Estimated", 
      Definition="Indicate weather the longitude and latitude coordinates are exact (GPS device)
      or estimated based on another method (e.g., by pointinf the location in the map above)",
      Type="Single selection",
      Mandatory="Yes"), 
    
    data.frame(
      Variable="EventCoordinatesExactOrEstimated",
      Label="Event Coordinates Exact Or Estimated", 
      Definition="Indicate weather the longitude and latitude coordinates are exact (GPS device)
      or estimated based on another method (e.g., by pointinf the location in the map above)",
      Type="Single selection",
      Mandatory="Yes"), 
    
    data.frame(
      Variable="EventOriginalCRS",
      Label="Original Coordinate Reference System tro report the longitude and latitude of the Event", 
      Definition="Indicate weather the longitude and latitude coordinates are exact (GPS device)
      or estimated based on another method (e.g., by pointinf the location in the map above)",
      Type="Single selection",
      Mandatory="No"), 
    
    data.frame(
      Variable="EventCountry",
      Label="Country", 
      Definition="Country where the Event happens",
      Type="Single selection",
      Mandatory="Yes"),  
    
    data.frame(
      Variable="EventState",
      Label="State", 
      Definition="State where the Event happens",
      Type="Single selection",
      Mandatory="No"),      
    
    data.frame(
      Variable="EventProvince",
      Label="Province", 
      Definition="Province where the Event happens",
      Type="Single selection",
      Mandatory="No"),   
    
    # data.frame(
    #   Variable="EventUnit",
    #   Label="Event unit", 
    #   Definition="Explanation of what the Event represents (e.g., a field finding, 
    #   a market, a vendor, a cage, a grid cell, a point in a transect, a mist net, 
    #   a point in a parcel, a point in a protected area, etc.)",
    #   Type="Single selection",
    #   Mandatory="Yes"), 
    
    data.frame(
      Variable="EventFeatures",
      Label="Event Features", 
      Definition="Specific set of findings at the Event that are dynamic over time
      (e.g., fire, smoke, etc)",
      Type="Multiple selection",
      Mandatory="Yes"),
    
    data.frame(
      Variable="EventOtherFeatures",
      Label="Other Event Features", 
      Definition="Other findings at the Event that are dynamic over time not listed in the previous attribute",
      Type="Multiple selection",
      Mandatory="No"),
    
    data.frame(
      Variable="EventBy",
      Label="Event reported by", 
      Definition="The person that reported the Event",
      Type="Single selection",
      Mandatory="Yes"),        
    
    data.frame(
      Variable="EventBySector",
      Label="Sector of the reporter", 
      Definition="The sector of the person that reported the Event",
      Type="Single selection",
      Mandatory="No"), 
  
    # data.frame(
    #   Variable="EventTargetedRecords",
    #   Label="Event Targeted Records",
    #   Definition="Indicate what type of Records (Group, Animal, Environmental,
    #   or from Arthropod Sources) are targeted in the Event",
    #   Type="Multiple selection",
    #   Mandatory="Yes"),
    
    # --- if Group Source is selected
    
    # --- if Animal Source is selected
    
    # --- if Environmental Source is selected
    
    # data.frame(
    #   Variable="EventTargetedTaxa",
    #   Label="Event Targeted Taxa", 
    #   Definition="Indicate the taxa targeted in the Event. ",
    #   Type="Multiple selection",
    #   Mandatory="Yes"), 
    
    # data.frame(
    #   Variable="EventContainsRecords",
    #   Label="Event Contain Records", 
    #   Definition="Indicate if Records of Group, Animal, Environmental, or Arthropod Sources
    #   are included in the Event",
    #   Type="Boolean",
    #   Mandatory="Yes"),    
    
    # data.frame(
    #   Variable="EventContainsSpecimens",
    #   Label="Event Contain Records", 
    #   Definition="Indicate if Specimens of Group, Animal, Environmental, or Arthropod Sources
    #   Records are included in the Event",
    #   Type="Boolean",
    #   Mandatory="Yes"),  
    
    # data.frame(
    #   Variable="EventTypeOfRecords",
    #   Label="Event Type Of Records",
    #   Definition="Indicate the type of Records documented from the Event",
    #   Type="Boolean",
    #   Mandatory="Yes"),
    
    
    
    
    
    
    
    
    
    
    
    # data.frame(
    #   Variable="EventSmartSource",
    #   Label="Event from SMART", 
    #   Definition="Answer to the question: 'Was the Event recorded using SMART?'",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # 
    # data.frame(
    #   Variable="EventSiteCode",
    #   Label="Site code", 
    #   Definition="The site the Events are grouped by site",
    #   Type="Single selection",
    #   Mandatory="No"),   
    # 
    # data.frame(
    #   Variable="EventZoneCode",
    #   Label="Zone code", 
    #   Definition="The zone the Events are grouped by zone",
    #   Type="Single selection",
    #   Mandatory="No"),  
    # 
    # data.frame(
    #   Variable="EventMarketCode",
    #   Label="Market code", 
    #   Definition="The market the Events are grouped by market",
    #   Type="Single selection",
    #   Mandatory="No"),
    # 
    # data.frame(
    #   Variable="EventGridCode",
    #   Label="Grid code", 
    #   Definition="The grid code the when Events are grouped by grid",
    #   Type="Single selection",
    #   Mandatory="No"),
    # 
    # data.frame(
    #   Variable="EventGridCellCode",
    #   Label="Grid cell code", 
    #   Definition="The grid cell code when Events are grouped by grid cell",
    #   Type="Single selection",
    #   Mandatory="No"),
    # 
    # data.frame(
    #   Variable="EventStationCode",
    #   Label="Station code", 
    #   Definition="The station code when Events are grouped by station",
    #   Type="Single selection",
    #   Mandatory="No"),  
    # 
    # data.frame(
    #   Variable="EventTransectCode",
    #   Label="Transect code", 
    #   Definition="The transect code when Events are grouped by transect",
    #   Type="Single selection",
    #   Mandatory="No"),     
    # 
    # data.frame(
    #   Variable="EventVendorCode",
    #   Label="Vendor code", 
    #   Definition="The vendor code when Events are grouped by vendor",
    #   Type="Single selection",
    #   Mandatory="No"),  
    # 
    # data.frame(
    #   Variable="EventTrapCode",
    #   Label="Trap code", 
    #   Definition="The vendor code when Events are grouped by trap",
    #   Type="Single selection",
    #   Mandatory="No"),      
    # 
    # data.frame(
    #   Variable="EventMistNetCode",
    #   Label="Mist net code", 
    #   Definition="The mist net code when Events are grouped by mist net code",
    #   Type="Single selection",
    #   Mandatory="No"),     
    # 
    # data.frame(
    #   Variable="EventOtherSpatialUnitCode",
    #   Label="Other spatial unit code", 
    #   Definition="The spatial unit code when Events are grouped by another spatial unit",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudyYear",
    #   Label="The study year", 
    #   Definition="The temporal unit code when Events are grouped by year unit",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudySeason",
    #   Label="The study season", 
    #   Definition="The temporal unit code when Events are grouped by study season",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudyMonth",
    #   Label="The study month", 
    #   Definition="The temporal unit code when Events are grouped by month",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudyWeek",
    #   Label="The study week", 
    #   Definition="The temporal unit code when Events are grouped by week",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudyDayPeriod",
    #   Label="The study day period", 
    #   Definition="The temporal unit code when Events are grouped by study day",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventStudyHour",
    #   Label="The study hour", 
    #   Definition="The temporal unit code when Events are grouped by study hour",
    #   Type="Single selection",
    #   Mandatory="No"), 
    # 
    # data.frame(
    #   Variable="EventOtherTemporalUnit",
    #   Label="Other spatial temporal unit code", 
    #   Definition="The temporal unit code when Events are grouped by another temporal unit",
    #   Type="Single selection",
    #   Mandatory="No"), 
    

  #   
  #   data.frame(
  #     Variable="EventTimeAssembled",
  #     Label="Time assembled", 
  #     Definition="The time a trap or similar representing an Event is set up",
  #     Type="Datetime",
  #     Mandatory="No"),    
  #   
  #   data.frame(
  #     Variable="EventTimeDisassembled",
  #     Label="Time disassembled", 
  #     Definition="The time a trap or similar representing an Event is dissamsembled",
  #     Type="Datetime",
  #     Mandatory="No")     
  #   
  # )

event<-
  event %>% 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())