doc(*): apostrophes

Author: dimfalk

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: netatmo.weather
 Title: R wrapper for Netatmo Weather API
-Version: 0.5.27
-Date: 2024-04-17
+Version: 0.5.28
+Date: 2024-04-18
 Authors@R: 
     person("Dimitri", "Falk", , "falk.dimitri@eglv.de", role = c("aut", "cre"))
 Description: Obtain station locations, metadata and measurements from Netatmo stations for the region specified.

NEWS.md

@@ -1,4 +1,4 @@
-# version 0.5.27
+# version 0.5.28
 
 ## features
 

R/fetch_token.R

@@ -15,7 +15,7 @@ fetch_token <- function() {
   stopifnot("Internet connection is not available." = curl::has_internet())
 
   # abort if target host is not available
-  stopifnot("`api.netatmo.com` is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
+  stopifnot("'api.netatmo.com' is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
 
   # abort if app technical parameters are missing, c.f. https://dev.netatmo.com/
   stopifnot("Client ID and secret are missing. Run `set_credentials()` first." = "netatmo" %in% keyring::keyring_list()[["keyring"]])
@@ -25,7 +25,7 @@ fetch_token <- function() {
   # do nothing if the token is already available
   if (file.exists(".httr-oauth")) {
 
-    message("Note: OAuth 2.0 token is already available in file `.httr-oauth`. Delete it in case you want to re-authenticate.")
+    message("Note: OAuth 2.0 token is already available in file '.httr-oauth'. Delete it in case you want to re-authenticate.")
 
   } else {
 
@@ -44,7 +44,7 @@ fetch_token <- function() {
                          app,
                          scope = "read_station")
 
-    message("Note: OAuth 2.0 access credentials successfully cached in file `.httr-oauth`.")
+    message("Note: OAuth 2.0 access credentials successfully cached in file '.httr-oauth'.")
   }
 }
 
@@ -124,7 +124,7 @@ is_expired <- function() {
   stopifnot("Internet connection is not available." = curl::has_internet())
 
   # abort if target host is not available
-  stopifnot("`api.netatmo.com` is not available." = curl::nslookup("api.netatmo.net") == "20.23.199.179")
+  stopifnot("'api.netatmo.com' is not available." = curl::nslookup("api.netatmo.net") == "20.23.199.179")
 
   # abort if token is not available
   stopifnot("OAuth 2.0 token is missing. Run `fetch_token()` first." = file.exists(".httr-oauth"))
@@ -181,7 +181,7 @@ refresh_at <- function() {
   stopifnot("Internet connection is not available." = curl::has_internet())
 
   # abort if target host is not available
-  stopifnot("`api.netatmo.com` is not available." = curl::nslookup("api.netatmo.net") == "20.23.199.179")
+  stopifnot("'api.netatmo.com' is not available." = curl::nslookup("api.netatmo.net") == "20.23.199.179")
 
   # abort if token is not available
   stopifnot("OAuth 2.0 token is missing. Run `fetch_token()` first." = file.exists(".httr-oauth"))

R/get_measure.R

@@ -55,7 +55,7 @@ get_measure <- function(devices = NULL,
   stopifnot("Internet connection is not available." = curl::has_internet())
 
   # abort if target host is not available
-  stopifnot("`api.netatmo.com` is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
+  stopifnot("'api.netatmo.com' is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
 
   # abort if token is not available
   stopifnot("OAuth 2.0 token is missing. Run `fetch_token()` first." = file.exists(".httr-oauth"))
@@ -154,7 +154,7 @@ get_measure <- function(devices = NULL,
   if (nm > 500) {
 
     input <- menu(c("Yes", "No"),
-                  title = "You are about to exceed your hourly limit of 500 requests (and risking to be temporarily banned from the API).
+                  title = "You are about to exceed your hourly limit of 500 requests (and risking to be banned from using the API).
                     Do you really want to continue?")
 
     if (input == 2) {

R/get_publicdata.R

@@ -45,7 +45,7 @@ get_publicdata <- function(ext = NULL,
   stopifnot("Internet connection is not available." = curl::has_internet())
 
   # abort if target host is not available
-  stopifnot("`api.netatmo.com` is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
+  stopifnot("'api.netatmo.com' is not available." = curl::nslookup("api.netatmo.com") == "20.23.199.179")
 
   # abort if token is not available
   stopifnot("OAuth 2.0 token is missing. Run `fetch_token()` first." = file.exists(".httr-oauth"))