From 0ef46b00eb113812cd485bb109fb48d6642d3e25 Mon Sep 17 00:00:00 2001
From: Will Beasley <wibeasley@hotmail.com>
Date: Sun, 19 Feb 2023 15:56:23 -0600
Subject: [PATCH] {PostcodesioR} and {urlshorteneR} on CRAN now

ref #505
---
 WebTechnologies.md                  |  4 +-
 scripts/check-if-elevated-to-cran.R | 62 +++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+), 2 deletions(-)
 create mode 100644 scripts/check-if-elevated-to-cran.R

diff --git a/WebTechnologies.md b/WebTechnologies.md
index 88c86c4..737e9dd 100644
--- a/WebTechnologies.md
+++ b/WebTechnologies.md
@@ -429,7 +429,7 @@ This list describes online services.  For a more complete treatment of the topic
   `r pkg("opencage")` provides access to to the 'OpenCage' geocoding service.
   `r github("hrbrmstr/nominatim")` (not on CRAN) connects to the
   [OpenStreetMap Nominatim API](https://github.com/hrbrmstr/nominatim) for reverse geocoding.
-  `r github("ropensci/PostcodesioR")` (not on CRAN) provides post code lookup and
+  `r pkg("PostcodesioR")` provides post code lookup and
   geocoding for the United Kingdom.
   `r pkg("geosapi")` is an R client for the 'GeoServer' REST API,
    an open source implementation used widely for serving spatial data.
@@ -734,7 +734,7 @@ Many CRAN packages interact with services facilitating sports analysis.  For a m
   `r pkg("urltools")` can also handle URL encoding, decoding, parsing, and parameter extraction.
 - `r pkg("iptools")` can facilitate working with IPv4 addresses, including for use in geolocation.
   A similar package `r pkg("ipaddress")`, handles IPv4 and IPv6 addresses and networks.
-- `r github("dmpe/urlshorteneR")` offers URL expansion and analysis for Bit.ly, Goo.gl, and is.gd.
+- `r pkg("urlshorteneR")` offers URL expansion and analysis for Bit.ly, Goo.gl, and is.gd.
   `r pkg("longurl")` uses the longurl.org API to provide similar functionality.
 - `r github("hrbrmstr/gdns")` provides access to Google's secure HTTP-based DNS resolution service.
 
diff --git a/scripts/check-if-elevated-to-cran.R b/scripts/check-if-elevated-to-cran.R
new file mode 100644
index 0000000..aa7a0c8
--- /dev/null
+++ b/scripts/check-if-elevated-to-cran.R
@@ -0,0 +1,62 @@
+# See https://github.com/cran-task-views/WebTechnologies/issues/505
+
+# Copy from the bottom of https://cran.r-project.org/web/views/WebTechnologies.html:
+packages <- c(
+  "dashR",
+  "discgolf",
+  "feedeR",
+  "formr",
+  "gdns",
+  "ipapi",
+  "meetupr",
+  "mockaRoo",
+  "nominatim",
+  "PostcodesioR",
+  "randNames",
+  "rcloud",
+  "RDoubleClick",
+  "rydn",
+  "securitytxt",
+  "stackr",
+  "twitter_ideology",
+  "twitterreport",
+  "urlshorteneR",
+  "useRsnap"
+)
+
+packages |> 
+  rlang::set_names() |> 
+  purrr::map_lgl(available::available_on_cran) |> 
+  tibble::enframe(
+    value = "available_on_cran"
+  )
+
+# # A tibble: 20 × 2
+# name             available_on_cran 
+# dashR            TRUE             
+# discgolf         FALSE # Archived on 2022-11-06 at the maintainer's request.
+# feedeR           FALSE # Archived on 2021-10-05 as check problems were not corrected in time.
+# formr            TRUE             
+# gdns             FALSE # Archived on 2022-05-07 as calls defunct default.stringsAsFactors()
+# ipapi            TRUE             
+# meetupr          TRUE             
+# mockaRoo         TRUE             
+# nominatim        TRUE             
+# PostcodesioR     FALSE # now on cran         
+# randNames        FALSE # Archived on 2022-08-22 at the maintainer's request.            
+# rcloud           TRUE             
+# RDoubleClick     TRUE             
+# rydn             TRUE             
+# securitytxt      FALSE # Archived on 2021-05-14 as check problems were not corrected in time.           
+# stackr           TRUE             
+# twitter_ideology TRUE             
+# twitterreport    TRUE             
+# urlshorteneR     FALSE # now on cran            
+# useRsnap         TRUE    
+
+# p <- packages[1]
+# p <- "analogsea"
+# address <- sprintf("https://CRAN.R-project.org/package=%s", p)
+# 
+# url(address)
+# available::available_on_cran(p)