Changing urls

DESCRIPTION

@@ -34,7 +34,7 @@ Suggests:
 LazyData: true
 URL: https://besjournals.onlinelibrary.wiley.com/doi/full/10.1111/2041-210X.12401,
     https://github.com/macroecology/letsR,
-    http://brunovilela.github.io/letsR/
+    https://brunovilela.github.io/letsR/
 BugReports: https://github.com/macroecology/letsR/issues
 RoxygenNote: 7.2.3
 Encoding: UTF-8

R/Data_helps.R

@@ -38,7 +38,7 @@ NULL
 #'@usage data(temp)
 #'@description Average temperature raster in Celsius degrees(multiplied by 100) 
 #'for the world in 10 arc min of resolution. Data was modfied from 
-#'WorldClim (\url{http://worldclim.com/}, downloaded in 05/2014).
+#'WorldClim (\url{https://worldclim.com/}, downloaded in 05/2014).
 #'@source Hijmans, R.J., S.E. Cameron, J.L. Parra, P.G. Jones and A. Jarvis, 2005. 
 #'Very high resolution interpolated climate surfaces for global land areas. 
 #'International Journal of Climatology 25: 1965-1978.
@@ -55,7 +55,7 @@ NULL
 #'@description Shapefile in sf format. The object was obtained from maptools
 #'  package and converted to sf.
 #'@source Originally
-#'  “http://mappinghacks.com/data/TM_WORLD_BORDERS_SIMPL-0.2.zip”, 
+#'  “https://mappinghacks.com/data/TM_WORLD_BORDERS_SIMPL-0.2.zip”, 
 #'  now available from
 #'  https://github.com/nasa/World-Wind-Java/tree/master/WorldWind/testData/shapefiles
 

R/getcode.R

@@ -7,7 +7,7 @@
 #   binomialerror <- length(unlist(strsplit(input, " "))) == 2
 #   input <- gsub(as.matrix(input), pattern = " ", replacement = "-")
 #   
-#   h <- try(htmlParse(paste("http://api.iucnredlist.org/go/",
+#   h <- try(htmlParse(paste("https://api.iucnredlist.org/go/",
 #                            input, sep = "")),
 #            silent = TRUE)
 #   if (class(h)[1] != "try-error" & binomialerror) {
@@ -16,7 +16,7 @@
 #     
 #     
 #     # Subsecies control
-#     http <- "http://www.iucnredlist.org/details/summary/"
+#     http <- "https://www.iucnredlist.org/details/summary/"
 #     h1 <- htmlParse(paste(http, c, "/0", sep = ""))
 #     links <- xpathSApply(h1, "//a/@href")
 #     links <- strsplit(links, "\n")
@@ -40,4 +40,4 @@
 #   } else {
 #     return(NULL)
 #   }
-# }
+# }

R/lets_iucn.R

@@ -113,7 +113,7 @@ lets.iucn <- function(input, count = FALSE) {
 #   # Get species code
 #   speciescode <- .getcode(input)
 #   # Find the web
-#   h <- try(htmlParse(paste("http://api.iucnredlist.org/details/",
+#   h <- try(htmlParse(paste("https://api.iucnredlist.org/details/",
 #                            speciescode, "/0", sep = "")),
 #            silent=TRUE)
 #   # If not find, species set to NE

R/lets_iucn_historic.R

@@ -118,7 +118,7 @@ lets.iucn.his <- function(input, count = FALSE) {
 #   if (is.null(c)) {
 #     return(matriz)
 #   } else {
-#     h2 <- htmlParse(paste("http://api.iucnredlist.org/details/", 
+#     h2 <- htmlParse(paste("https://api.iucnredlist.org/details/", 
 #                           c, "/0", sep = ""))
 #     ano1 <- xpathSApply(h2, '//div[@id="modified_year"]', xmlValue)
 #     ameaca1 <- xpathSApply(h2, '//div[@id="red_list_category_code"]', xmlValue)

README.md

@@ -3,7 +3,7 @@
 [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/letsR)](https://CRAN.R-project.org/package=letsR)
 [![rstudio mirror downloads](https://cranlogs.r-pkg.org/badges/letsR)]( https://github.com/r-hub/cranlogs.app)
 [![rstudio mirror downloads](https://cranlogs.r-pkg.org/badges/grand-total/letsR)]( https://github.com/r-hub/cranlogs.app)
-[![Research software impact](http://depsy.org/api/package/cran/letsR/badge.svg)](http://depsy.org/package/r/letsR)
+[![Research software impact](https://depsy.org/api/package/cran/letsR/badge.svg)](https://depsy.org/package/r/letsR)
 
 # letsR <img src="man/figures/letsr.png" align="right" height="200" style="float:right; height:200px;" />
 

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: http://brunovilela.github.io/letsR/
+url: https://brunovilela.github.io/letsR/
 template:
   bootstrap: 5
   bootswatch: materia