## Not run:
# data_dir <- system.file("extdata", package = "stplanr")
# unzip(file.path(data_dir, 'smallsa1.zip'))
# unzip(file.path(data_dir, 'testcycleway.zip'))
# sa1income <- readOGR(".","smallsa1")
# testcycleway <- readOGR(".","testcycleway")
# calc_moving_catchment(
# polygonlayer = sa1income,
# targetlayer = testcycleway,
# calccols = c('Total'),
# distance = 800,
# projection = 'austalbers'
# )
# ## End(Not run)
Run the code above in your browser using DataLab