diff --git a/.github/workflows/test-coverage.yaml b/.github/workflows/test-coverage.yaml new file mode 100644 index 0000000..2c5bb50 --- /dev/null +++ b/.github/workflows/test-coverage.yaml @@ -0,0 +1,50 @@ +# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples +# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help +on: + push: + branches: [main, master] + pull_request: + branches: [main, master] + +name: test-coverage + +jobs: + test-coverage: + runs-on: ubuntu-latest + env: + GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} + + steps: + - uses: actions/checkout@v3 + + - uses: r-lib/actions/setup-r@v2 + with: + use-public-rspm: true + + - uses: r-lib/actions/setup-r-dependencies@v2 + with: + extra-packages: any::covr + needs: coverage + + - name: Test coverage + run: | + covr::codecov( + quiet = FALSE, + clean = FALSE, + install_path = file.path(Sys.getenv("RUNNER_TEMP"), "package") + ) + shell: Rscript {0} + + - name: Show testthat output + if: always() + run: | + ## -------------------------------------------------------------------- + find ${{ runner.temp }}/package -name 'testthat.Rout*' -exec cat '{}' \; || true + shell: bash + + - name: Upload test results + if: failure() + uses: actions/upload-artifact@v3 + with: + name: coverage-test-failures + path: ${{ runner.temp }}/package diff --git a/man/geom_sf_rais.Rd b/man/geom_sf_rais.Rd index 01233da..7cd77a8 100644 --- a/man/geom_sf_rais.Rd +++ b/man/geom_sf_rais.Rd @@ -71,6 +71,47 @@ requires an already spatialized dataset } \examples{ \dontrun{ -print("Hello world!") +# 1 one year + +data("fortaleza") +data("rais_fortaleza") + +## get geometry data into dataframe +rais_fortaleza <- rais_fortaleza \%>\% + left_join(fortaleza) \%>\% + sf::st_as_sf() \%>\% + filter(year == 2019) + +## 1.1 inheriting data from ggplot() +rais_fortaleza \%>\% + ggplot() + + geom_sf_rais(n_jobs, var_name = "Jobs", geo_name = "Fortaleza", geo_level = "neighborhood") + + theme_void() + +## 1.2 passing data explicitly +ggplot() + + geom_sf_rais(n_jobs, var_name = "Jobs", geo_name = "Fortaleza", geo_level = "neighborhood", + data = rais_fortaleza) + + theme_void() +} + +\dontrun{ +# 2 two years (faceted) + +data("fortaleza") +data("rais_fortaleza") + +## get geometry data into dataframe +rais_fortaleza <- rais_fortaleza \%>\% + left_join(fortaleza) \%>\% + sf::st_as_sf() + +## plot +ggplot() + + geom_sf(data = fortaleza, color = NA) + + geom_sf_rais(n_jobs, var_name = "Jobs", geo_name = "Fortaleza", geo_level = "neighborhood", + data = rais_fortaleza, + faceted = T, facet_var = year) + + theme_void() } }