dotprops do not get resampled labels

[jefferis]

resample actually generates resampled labels, but dotprops does not assign them correctly. Simple thinko, should assign labels after resampling.

dotprops.neuron<-function (x, Labels = NULL, resample = NA, ...) 
{
    if (is.null(Labels) || isTRUE(Labels)) 
        Labels = x$d$Label
    else if (is.logical(labels) && labels == FALSE) 
        Labels = NULL
    if (is.finite(resample)) 
        x = resample(x, stepsize = resample)
    dotprops(xyzmatrix(x), Labels = Labels, ...)
}

[jefferis]

@alexanderbates