Fix writePLY uchar color export.

[aidanmorales]

Issue #425

Reverted all formatting changes. Code change shown below:

endian <- if (format == "little_endian") "little" else "big"
if (nrow(Vertices)) {
  for (i in seq_len(nrow(Vertices))) {
    writeBin(as.numeric(Vertices[i,]), con, size=4, endian=endian)
    if (withColors)
      writeBin(as.integer(Colors[i,]), con, size=1, endian=endian)
  }
}

Original code threw: Error in Colors[i, ] : subscript out of bounds when setting withColors = FALSE with endian formats.

endian <- if (format == "little_endian") "little" else "big"
if (nrow(Vertices)) {
  if (!nrow(Colors))
    writeBin(as.numeric(t(Vertices)), con, size=4, endian=endian)
  else {
    for (i in seq_len(nrow(Vertices))) {
      writeBin(Vertices[i,], con, size=4, endian=endian)
      writeBin(Colors[i,], con, size=1)
    }
  }
}

[dmurdoch]

That is still mainly irrelevant changes. What are the important ones? I can't see any.