andr <- andromeda(cars = cars)
nrow(andr$cars)
# [1] 50
appendToTable(andr$cars, cars)
nrow(andr$cars)
# [1] 100
appendToTable(andr$cars, andr$cars %>% filter(speed > 10))
nrow(andr$cars)
# [1] 182
close(andr)
Run the code above in your browser using DataLab