R/cleanTagData.R

Defines functions cleanTagData

cleanTagData <- function(input=rel_rec)
{
  
  # Function to clean up character strings
  
  #input <- rel_rec
  
  # input$tsplacename <- gsub('Marché Central Au Poisson','Central Fish Market',input$tsplacename)
  # input$tsplacename <- gsub('Marché Central AU Poisson','Central Fish Market',input$tsplacename)
   input$tsplacename <- gsub('Marche Au Poisson','Central Fish Market',input$tsplacename)
  input$tsplacename <- gsub('Marche Centre Au Poisson','Central Fish Market',input$tsplacename)
  
  
  input$tsplacename <- gsub('Au Port Abidjan','Abidjan Port',input$tsplacename)
  input$tsplacename <- gsub('Port Abidjan','Abidjan Port',input$tsplacename)
  
  input$tsplacename <- gsub('Au Port ABIDJAN','Abidjan Port',input$tsplacename)
  input$tsplacename <- gsub('Port ABIDJAN','Abidjan Port',input$tsplacename)

  
  input$tsplacename <- gsub('Kayar','Kayare',input$tsplacename)
  input$tsplacename <- gsub('Kayaree','Kayare',input$tsplacename)
  input$tsplacename <- gsub('Port Autonome De Dakar','Autonomous Port of Dakar',input$tsplacename)

  input
  
  
  
  
  
  
}
laurieKell/FLTag documentation built on Nov. 19, 2019, 4:13 p.m.