From 04767dff8da90998eb1e02bc8d642c0b1a999a92 Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Mon, 1 Jul 2024 19:11:18 +0200
Subject: [PATCH] Also try uppercase R subdir

---
 R/cran.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/cran.R b/R/cran.R
index 69a248f..468f3e5 100644
--- a/R/cran.R
+++ b/R/cran.R
@@ -98,7 +98,7 @@ cran_registry_with_status <- function(full_reset = FALSE){
           packages$url[k] <<- pkg$Git
         }
         message("HTTP or description error: ", package, " from ", pkg$Git,  ": ", res$status)
-        alt_subdirs <- sprintf(c("pkg", "r", "%s", "pkg/%s"), package)
+        alt_subdirs <- sprintf(c("pkg", "r", "R", "%s", "pkg/%s"), package)
         if(package == 'duckdb') alt_subdirs <- 'tools/rpkg'
         if(package == 'rstan') alt_subdirs <- 'rstan/rstan'
         lapply(alt_subdirs, function(alt_dir){