R/strfix.R

In AngusWright/LAMBDAR: Measure galaxy fluxes from an arbitrary FITS image using input aperture locations and dimensions

strfix<-function(vec,len=max(nchar(vec))){
  nch<-nchar(vec)
  max<-max(nch)
  if (any(nch!=max)) { 
    vec[nch!=max]<-paste0(strtrim(rep(paste0(rep(" ",max),collapse=''),length(which(nch!=max))),(max-nch)[nch!=max]),vec[nch!=max])
  }
  return=vec
}