add date variable spec to get_smooth
Need to be able to specify date variable (to allow usage of local time if required).
e.g.
get_smooth <- function(df, date.var="date") {
then something like
df <- df[order(df[,date.var]),c("uid",date.var,"lat","lon")]
where needed