有没有一个R代码来区分不同长度的坐标、纬度和经度？

# 定义一个函数来区分不同长度的坐标、纬度和经度
differentiate_coordinates <- function(coordinates) {
  # 判断坐标的长度
  if (length(coordinates) == 2) {
    # 说明是经度和纬度
    print("这是经度和纬度坐标")
    # 进一步判断经度和纬度的长度
    if (length(coordinates[[1]]) == 1 && length(coordinates[[2]]) == 1) {
      print("这是单个经度和纬度")
    } else {
      print("这是多个经度和纬度")
    }
  } else if (length(coordinates) == 3) {
    # 说明是三维坐标
    print("这是三维坐标")
  } else {
    print("无法识别的坐标类型")
  }
}

# 测试不同长度的坐标
# 经度和纬度
coordinates1 <- list(120.123, 30.456)
differentiate_coordinates(coordinates1)

# 多个经度和纬度
coordinates2 <- list(c(120.123, 120.456), c(30.123, 30.456))
differentiate_coordinates(coordinates2)

# 三维坐标
coordinates3 <- list(120.123, 30.456, 10.789)
differentiate_coordinates(coordinates3)