Added verification steps for Windows and R

.github/workflows/test_windows.yml

@@ -11,13 +11,21 @@ on:
 jobs:
   test:
     name: tests on Windows with R ${{ matrix.R }}
-    runs-on: windows-latest
+    runs-on: windows-latest-64
     strategy:
       fail-fast: false
       matrix:
         R: [ '4.1.0' ]
 
     steps:
+      - name: Check Windows architecture
+        run: |
+          if (-not [Environment]::Is64BitOperatingSystem) { throw "Not 64-bit Windows" }
+          Write-Host "OS Architecture: $([Environment]::Is64BitOperatingSystem)"
+          Write-Host "Process Architecture: $([Environment]::Is64BitProcess)"
+          systeminfo | findstr /B /C:"OS Name" /C:"OS Version" /C:"System Type"
+        shell: pwsh
+
       - name: Checkout repository
         uses: actions/checkout@v2
 
@@ -29,6 +37,14 @@ jobs:
           r-arch: 'x64'
           multiarch: false
 
+      - name: Verify R architecture
+        run: |
+          Rscript -e "if(R.version$arch != 'x64') stop('R architecture is not 64-bit!')"
+          Rscript -e "cat('R Architecture:', R.version$arch, '\n')"
+          Rscript -e "cat('.Machine$sizeof.pointer:', .Machine$sizeof.pointer, '\n')"
+          Rscript -e "cat('Using R at:', R.home(), '\n')"
+        shell: cmd
+
       - name: Query dependencies
         run: |
           install.packages('remotes')