remove pingr

Author: kvantas

.Rbuildignore

@@ -23,3 +23,5 @@
 ^\.github$
 ^tic\.R$
 >>>>>>> 5f92c0e554c5e22aa235c2fc0bec391976bb65f4
+^doc$
+^Meta$

.gitignore

@@ -6,3 +6,5 @@ inst/doc
 .DS_Store
 CRAN-RELEASE
 docs/
+/doc/
+/Meta/

DESCRIPTION

@@ -26,7 +26,6 @@ Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.2
 Imports: stringi (>= 1.8),
-    pingr (>= 2.0),
     stringr (>= 1.5), 
     tibble(>= 3.2),
     readr (>= 2.1),

NEWS.md

@@ -1,6 +1,7 @@
 # hydroscoper 1.7.0 (Release date: 2024-07-19)
 
-* remove pingr dependency 
+* `pingr` dependency has been removed. The check if a sub-domain is alive is
+  performed by a native R function. 
 
 # hydroscoper 1.6.0 (Release date: 2024-01-15)
 
@@ -49,7 +50,7 @@
   - The included data in the package cover all Hydroscope's databases.
   - Add vignettes "An introduction to `hydroscoper`" and  "Using `hydroscoper`'s data".
   - Add package documentation site.
-  - Use pingr package to check if a sub-domain is alive.
+  
   - All the functions return tibbles.
   - Add `greece_borders` dataset.
 

R/utils.R

@@ -7,37 +7,24 @@ server_address <- function(subdomain) {
 #' Check if a remote server is alive
 #' @noRd
 server_alive <- function(subdomain) {
-
-  err_msg <- paste(
-    "The server for that data source is probably down,",
-    "get more info at [email protected] or try",
-    "again later.")
-
-  tryCatch({
-    if (all(is.na(pingr::ping_port(server_address(subdomain),
-      port = 80L,
-      count = 3
-    )))) {
-      stop(err_msg, call. = FALSE)
-    }
-  },
-  error = function(e) {
-    # The original error message is now the default stop message
-    stop(err_msg, call. = FALSE)})
-
   # test the http capabilities of the current R build
   if (!capabilities(what = "http/ftp")) {
     stop("The current R build has no http capabilities")
   }
 
+  url <- server_address(subdomain)
   # test connection by trying to read first line of url
   test <- try(suppressWarnings(readLines(url, n = 1)), silent = TRUE)
 
   # return FALSE if test inherits 'try-error' class
   if (inherits(test, "try-error")) {
+    err_msg <- paste(
+      "The server for that data source is probably down,",
+      "get more info at [email protected] or try",
+      "again later."
+    )
     stop(err_msg)
   }
-
 }
 
 #' create coords from points

codemeta.json

@@ -14,7 +14,7 @@
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
+  "runtimePlatform": "R version 4.5.0 (2025-04-11)",
   "author": [
     {
       "@type": "Person",
@@ -80,6 +80,18 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=rmarkdown"
     },
+    {
+      "@type": "SoftwareApplication",
+      "identifier": "httptest",
+      "name": "httptest",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=httptest"
+    },
     {
       "@type": "SoftwareApplication",
       "identifier": "testthat",
@@ -168,7 +180,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "510.698KB",
+  "fileSize": "507.75KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",
@@ -197,12 +209,8 @@
     }
   ],
   "releaseNotes": "https://github.com/ropensci/hydroscoper/blob/master/NEWS.md",
-<<<<<<< HEAD
-  "contIntegration": ["https://app.travis-ci.com/ropensci/hydroscoper", "https://ci.appveyor.com/project/ropensci/hydroscoper", "https://app.codecov.io/gh/ropensci/hydroscoper"],
-=======
   "readme": "https://github.com/ropensci/hydroscoper/blob/master/README.md",
-  "contIntegration": ["https://github.com/ropensci/hydroscoper/actions", "https://app.codecov.io/gh/ropensci/hydroscoper"],
->>>>>>> 5f92c0e554c5e22aa235c2fc0bec391976bb65f4
+  "contIntegration": ["https://app.travis-ci.com/ropensci/hydroscoper", "https://ci.appveyor.com/project/ropensci/hydroscoper", "https://app.codecov.io/gh/ropensci/hydroscoper"],
   "review": {
     "@type": "Review",
     "url": "https://github.com/ropensci/software-review/issues/185",

data-raw/hydroscope_data.Rmd

@@ -29,17 +29,16 @@ This vignette shows how to create a tidy data frame for the stations' and time s
 This vignette requires an internet connection to run and that the Hydroscope's subdomains to be online. We can check if the sub-domains are online using the `pingr` package:
 
 ```{r}
-library(pingr)
-
 # helper function to check if a sub-domain is online
 online <- function(h_url){
-  !is.na(pingr::ping(h_url, count = 1))
+  !inherits(try(suppressWarnings(readLines(h_url, n = 1)), silent = TRUE),
+            "try-error")
 }
 
 # check if sub-domains are online
-kyy   <- online("kyy.hydroscope.gr")
-emy   <- online("emy.hydroscope.gr")
-ypaat <- online("ypaat.hydroscope.gr")
+kyy   <- online("http://kyy.hydroscope.gr")
+emy   <- online("http://emy.hydroscope.gr")
+ypaat <- online("http://ypaat.hydroscope.gr")
 chk_online <- kyy & emy & ypaat
 print(paste("All sub-domains are online:", chk_online))
 ```

docs/news/index.html

@@ -4,4 +4,4 @@ pkgdown_sha: ~
 articles:
   intro_hydroscoper: intro_hydroscoper.html
   stations_with_data: stations_with_data.html
-last_built: 2025-07-11T18:07Z
+last_built: 2025-07-11T19:10Z