FLTag: Oceanic Fish Tagging

formatTagdata <- function(input=rel_rec){
  #Add useful vectors to the data
  #input <- rel_rec
  
  #Locations
  
  input$relonx <- as.numeric(as.character(input$relonx))
  input$rclonx <- as.numeric(as.character(input$rclonx))
  input$relaty <- as.numeric(as.character(input$relaty))
  input$rclaty <- as.numeric(as.character(input$rclaty))
  
  
  #Change zeros to NAs
  input$relen <- ifelse(input$relen==0,NA, input$relen)
  input$rclen <- ifelse(input$rclen==0,NA, input$rclen)
  
  #Make sure lengths are numeric
  input$relen <- as.numeric(as.character(input$relen))
  input$rclen <- as.numeric(as.character(input$rclen))
  
  i <- sapply(input, is.factor)
  input[i] <- lapply(input[i], as.character)
  
  #Add T if tag was recovered
  rci <- which(input$rcstagecode_rc %in% c("R-2","R-3","R-4","R-5","RCF"))        # Where are the recoveries
  input$recovered <- FALSE
  input$recovered[rci] <- TRUE
  
  
  #Electronic tag information
  # wcs <- tagseries$tagnumidfrom[tagseries$tagtype == 'MiniPAT-348C' & tagseries$notes == "electronic pop-up"]:tagseries$tagnumidto[tagseries$tagtype == 'MiniPAT-348C' & tagseries$notes == "electronic pop-up"]
  # dss <- tagseries$tagnumidfrom[tagseries$tagtype == 'SeaTag 3D PSAT' & tagseries$notes == "electronic pop-up. DESERT STAR"]:tagseries$tagnumidto[tagseries$tagtype == 'SeaTag 3D PSAT' & tagseries$notes == "electronic pop-up. DESERT STAR"]
  # lok.2810 <- tagseries$tagnumidfrom[tagseries$tagtype == '2810' & tagseries$notes == "electronic internal. LOTEK 2810"]:tagseries$tagnumidto[tagseries$tagtype == '2810' & tagseries$notes == "electronic internal. LOTEK 2810"]
  # lok.ageo <- tagseries$tagnumidfrom[tagseries$tagtype == 'ARCGEO-9' & tagseries$notes == "electronic internal. LOTEK arcgeo-9"]:tagseries$tagnumidto[tagseries$tagtype == 'ARCGEO-9' & tagseries$notes == "electronic internal. LOTEK arcgeo-9"]
  # 
  # input$model[input$electronictagcode1 %in% lok.2810] <- 'Lotek-2810'
  # input$model[input$electronictagcode1 %in% dss] <- 'DS-SeaTag-3D-PSAT'
  # input$model[input$electronictagcode1 %in% wcs] <- 'MiniPAT-348C'
  # input$model[input$electronictagcode1 %in% lok.ageo] <- 'ARCGEO-9'
  # input$supplierserialnumber <- electronictags$supplierserialnumber[match(input$electronictagcode1,electronictags$electronictagcode)]
  # input$argos                <- wc_codes$argos[match(input$electronictagcode1,wc_codes$aottp_id)]
  input
}