R
transformer <- function(df, col){
df1 <- df %>%select(cycling, col)
df1 <- df1[order(df1$col, decreasing = F),]
return (df1$col)
}
df1 <- transformer(df, 'dist_km')
df1 <- df %>%select(cycling, col)
return (df1$col)
}
df1 <- transformer(df, 'dist_km')