Readme

Author: ramarty

.github/.gitignore

@@ -0,0 +1 @@
+*.html

.github/workflows/R-CMD-check.yaml

@@ -0,0 +1,49 @@
+# 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: R-CMD-check
+
+jobs:
+  R-CMD-check:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: macos-latest,   r: 'release'}
+          - {os: windows-latest, r: 'release'}
+          - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
+          - {os: ubuntu-latest,   r: 'release'}
+          - {os: ubuntu-latest,   r: 'oldrel-1'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v3
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::rcmdcheck
+          needs: check
+
+      - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true

.github/workflows/pkgdown.yaml

@@ -0,0 +1,48 @@
+# 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]
+  release:
+    types: [published]
+  workflow_dispatch:
+
+name: pkgdown
+
+jobs:
+  pkgdown:
+    runs-on: ubuntu-latest
+    # Only restrict concurrency for non-PR jobs
+    concurrency:
+      group: pkgdown-${{ github.event_name != 'pull_request' || github.run_id }}
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+    permissions:
+      contents: write
+    steps:
+      - uses: actions/checkout@v3
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::pkgdown, local::.
+          needs: website
+
+      - name: Build site
+        run: pkgdown::build_site_github_pages(new_process = FALSE, install = FALSE)
+        shell: Rscript {0}
+
+      - name: Deploy to GitHub pages 🚀
+        if: github.event_name != 'pull_request'
+        uses: JamesIves/[email protected]
+        with:
+          clean: false
+          branch: gh-pages
+          folder: docs

DESCRIPTION

@@ -9,8 +9,8 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.1
-URL: https://ramarty.github.io/blackmarbler/
-BugReports: https://github.com/ramarty/blackmarbler/issues
+URL: https://worldbank.github.io/blackmarbler/
+BugReports: https://github.com/worldbank/blackmarbler/issues
 biocViews:
 Imports:
   readr,
@@ -22,4 +22,5 @@ Imports:
   sf,
   exactextractr,
   stringr,
-  rhdf5
+  rhdf5,
+  httr

readme_figures/build_package.R

@@ -4,7 +4,13 @@ if(F){
   roxygen2::roxygenise("~/Documents/Github/blackmarbler")
 
   pkgdown::clean_site()
+  
+  usethis::use_pkgdown()
+  pkgdown::build_site()
   pkgdown::deploy_to_branch()
+  
+  usethis::use_pkgdown()
+  usethis::use_github_pages()
   usethis::use_pkgdown_github_pages() #####
   usethis::use_github_action_check_standard()
 

readme_figures/testing.R

@@ -26,9 +26,28 @@ gha_0_sf <- gadm(country = "GHA", level=0, path = tempdir()) %>% st_as_sf()
 
 r_2021 <- bm_raster(roi_sf = gha_0_sf,
                     product_id = "VNP46A4",
-                    date = 2019,
+                    date = 2018,
                     bearer = bearer)
 
+r_2021_c <- bm_raster(roi_sf = gha_0_sf,
+                    product_id = "VNP46A4",
+                    date = 2020,
+                    variable = "NearNadir_Composite_Snow_Free",
+                    bearer = bearer)
+
+r_2021_c_n <- bm_raster(roi_sf = gha_0_sf,
+                      product_id = "VNP46A3",
+                      date = "2021-10",
+                      variable = "NearNadir_Coamposite_Snow_Free_Num",
+                      bearer = bearer)
+
+h5_data <- H5Fopen("~/Desktop/testaa.h5")
+
+variable <- "NearNadir_Composite_Snow_Free_Num"
+out <- h5_data$HDFEOS$GRIDS$VIIRS_Grid_DNB_2d$`Data Fields`[[variable]]
+
+summary(as.vector(out))
+
 headers <- c('Authorization' = paste('Bearer', bearer))
 response <- GET(urla, add_headers(headers), write_disk("~/Desktop/aaaa.h5", overwrite = TRUE))
 response