fork download
  1. X1 <- c("N40ø47.30'", "W32ø50.83'")
  2. X2 <- c("W111ø58.67'", "E96ø51.11'")
  3. df <- data.frame(X1, X2)
  4. df$X1 <- sub('^.(.*).$','\\1',df$X1)
  5. df$X2 <- sub('^.(.*).$','\\1',df$X2)
  6. df
  7.  
Success #stdin #stdout 0.16s 176448KB
stdin
Standard input is empty
stdout
        X1        X2
1 40ø47.30 111ø58.67
2 32ø50.83  96ø51.11