Added code to have both receiver_name and receiver_id drawn from 'rec…

…eiver'. Not sure that this change will continue long-term, might just be a stopgap for now.

R/otn_imos_column_map.R

@@ -93,7 +93,7 @@ otn_imos_column_map <- function(det_dataframe, rcvr_dataframe = NULL, tag_datafr
       CAAB_species_id = NA,
       WORMS_species_aphia_id = sapply(det_dataframe$scientificname, USE.NAMES = FALSE, FUN = get_aphiaid_from_lookup, lookup = lookup),
       animal_sex = NA,
-      # receiver_name = NA,
+      receiver_name = receiver,
       receiver_project_name = receiver_group,
       transmitter_serial_number = NA,
       transmitter_type = NA,
@@ -128,7 +128,7 @@ otn_imos_column_map <- function(det_dataframe, rcvr_dataframe = NULL, tag_datafr
       installation_name = receiver_group,
       station_name = station,
       receiver_id = receiver,
-      receiver_name = receiver, # Could be not the right thing to do to have both this and receiver_id be receiver?
+      #receiver_name = receiver, # Could be not the right thing to do to have both this and receiver_id be receiver?
       receiver_deployment_longitude = longitude,
       receiver_deployment_latitude = latitude # counterintuitively, we rename these here even though they get renamed BACK to their originals
       # back outside this function. The code outside still has to work for IMOS formatted data so we can't change it too much, so when we massage