update-package

Author: kauedesousa

LICENSE

@@ -1,21 +1,2 @@
-MIT License
-
-Copyright (c) 2020 Kauê de Sousa
-
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files (the "Software"), to deal
-in the Software without restriction, including without limitation the rights
-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the Software is
-furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
-SOFTWARE.
+YEAR: 2020
+COPYRIGHT HOLDER: Kauê de Sousa 

LICENSE.md

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2020 Kauê de Sousa
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

NEWS.md

@@ -1,3 +1,8 @@
+chirps 1.1 (2025-11-24) 
+=========================
+
+* Housekeeping version to refresh libraries and formats as part of CRAN guidelines updates.
+
 chirps 0.1.4.001 (2022-01-15) 
 =========================
 

R/GET.R

@@ -20,27 +20,27 @@
 #' @examples
 #' example("tapajos", package = "chirps")
 #'
-#' dates <- c("05/01/2017", "01/31/2018")
+#' dates = c("05/01/2017", "01/31/2018")
 #'
-#' operation <- 5
+#' operation = 5
 #'
-#' datatype <- 29
+#' datatype = 29
 #'
 #' chirps:::.GET(gjson, dates, operation, datatype)
 #'
 #'@noRd
-.GET <- function(gjson,
+.GET = function(gjson,
                  dates,
                  operation = NULL,
                  datatype = NULL) {
   message("\nFetching data from ClimateSERV \n")
 
-  begindate <- dates[1]
-  enddate <- dates[2]
+  begindate = dates[1]
+  enddate = dates[2]
 
   # submit data request and get ids
-  ids <- lapply(gjson, function(x) {
-    i <- .send_request(
+  ids = lapply(gjson, function(x) {
+    i = .send_request(
       datatype = datatype,
       begintime = begindate,
       endtime = enddate,
@@ -55,42 +55,42 @@
 
   # check request progress and wait
   # until the request is done by the server
-  request_progress <- seq_along(ids) == FALSE
+  request_progress = seq_along(ids) == FALSE
 
-  nids <- max(seq_along(ids))
+  nids = max(seq_along(ids))
 
   message("\nGetting your request...\n")
 
   while (isFALSE(all(request_progress))) {
-    request_progress <- lapply(ids, function(x) {
-      p <- .get_request_progress(x)
+    request_progress = lapply(ids, function(x) {
+      p = .get_request_progress(x)
 
     })
 
-    request_progress <- unlist(request_progress)
+    request_progress = unlist(request_progress)
 
   }
 
   # get data from request
-  result <- lapply(ids, function(x) {
-    d <- .get_data_from_request(id = x)
+  result = lapply(ids, function(x) {
+    d = .get_data_from_request(id = x)
 
     return(d)
 
   })
 
   # define ids
-  ids <- NULL
+  ids = NULL
   for (i in seq_along(result)) {
-    nr <- dim(result[[i]])[[1]]
+    nr = dim(result[[i]])[[1]]
 
-    ids <- c(ids, rep(i, nr))
+    ids = c(ids, rep(i, nr))
 
   }
 
-  result <- do.call("rbind", result)
+  result = do.call("rbind", result)
 
-  nr <- dim(result)[[1]]
+  nr = dim(result)[[1]]
 
   if (nr == 0) {
     stop("Failed to get valid values,
@@ -99,27 +99,27 @@
   }
 
   # add ids
-  result$id <- ids
+  result$id = ids
 
   # transform dates to the original format as input
-  dat <- strsplit(result$date, "/")
-  dat <- do.call("rbind", dat)
-  dat <- paste(dat[, 3], dat[, 1], dat[, 2], sep = "-")
-  result$date <- as.Date(dat, format = "%Y-%m-%d")
+  dat = strsplit(result$date, "/")
+  dat = do.call("rbind", dat)
+  dat = paste(dat[, 3], dat[, 1], dat[, 2], sep = "-")
+  result$date = as.Date(dat, format = "%Y-%m-%d")
 
-  names(result) <- c("date", "value", "id")
+  names(result) = c("date", "value", "id")
 
-  rownames(result) <- seq_len(nr)
+  rownames(result) = seq_len(nr)
 
-  result <- result[, c("id", "date", "value")]
+  result = result[, c("id", "date", "value")]
 
-  result <- result[order(result$date),]
+  result = result[order(result$date),]
 
-  result <- result[order(result$id),]
+  result = result[order(result$id),]
 
-  result[result == -9999] <- NA
+  result[result == -9999] = NA
 
-  class(result) <- union("chirps_df", class(result))
+  class(result) = union("chirps_df", class(result))
 
   return(result)
 

R/as.geojson.R

@@ -18,10 +18,10 @@
 #' library("sf")
 #'
 #' set.seed(123)
-#' lonlat <- data.frame(lon = runif(1, 10, 12),
+#' lonlat = data.frame(lon = runif(1, 10, 12),
 #'                      lat = runif(1, 45, 47))
 #'
-#' gjson <- as.geojson(lonlat)
+#' gjson = as.geojson(lonlat)
 #'
 #' #################
 #'
@@ -30,16 +30,16 @@
 #' library("sf")
 #'
 #' set.seed(123)
-#' lonlat <- data.frame(lon = runif(5, 10, 12),
+#' lonlat = data.frame(lon = runif(5, 10, 12),
 #'                      lat = runif(5, 45, 47))
 #'
-#' lonlat <- st_as_sf(lonlat, coords = c("lon","lat"))
+#' lonlat = st_as_sf(lonlat, coords = c("lon","lat"))
 #'
-#' gjson <- as.geojson(lonlat)
+#' gjson = as.geojson(lonlat)
 #'
 #' @importFrom sf st_point st_sfc st_buffer st_write st_as_sf
 #' @export
-as.geojson <- function(lonlat,
+as.geojson = function(lonlat,
                        dist = 0.00001,
                        nQuadSegs = 2L,
                        ...) {
@@ -48,61 +48,61 @@ as.geojson <- function(lonlat,
 
 #' @rdname as.geojson
 #' @export
-as.geojson.default <- function(lonlat,
+as.geojson.default = function(lonlat,
                                dist = 0.00001,
                                nQuadSegs = 2L,
                                ...) {
-  n <- dim(lonlat)[[1]]
+  n = dim(lonlat)[[1]]
 
   # lonlat into matrix
-  lonlat <- as.matrix(lonlat)
+  lonlat = as.matrix(lonlat)
 
   # split lonlat by rows
-  lonlat <- split(lonlat, seq_len(n))
+  lonlat = split(lonlat, seq_len(n))
 
   # transform into sf points
-  lonlat <- lapply(lonlat, function(l) {
+  lonlat = lapply(lonlat, function(l) {
     sf::st_point(l)
   })
 
   # and then into a geometry list column
-  lonlat <- sf::st_sfc(lonlat,
+  lonlat = sf::st_sfc(lonlat,
                        crs = "+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0")
 
   # set the buffer around the points
-  lonlatb <- sf::st_buffer(lonlat,
+  lonlatb = sf::st_buffer(lonlat,
                            dist = dist,
                            nQuadSegs = nQuadSegs)
 
   # transform into a sf object
-  lonlatb <- sf::st_as_sf(x = lonlatb)
+  lonlatb = sf::st_as_sf(x = lonlatb)
 
 
   # write the geojson string
-  tf <- tempfile(fileext = ".geojson")
+  tf = tempfile(fileext = ".geojson")
   sf::st_write(lonlatb, tf, quiet = TRUE)
 
   # capture these strings
-  gj <- readLines(tf)
+  gj = readLines(tf)
 
   # keep only the geometry vectors
-  index <- which(grepl("geometry", unlist(gj)))
+  index = which(grepl("geometry", unlist(gj)))
 
-  gj <- gj[index]
+  gj = gj[index]
 
   # remove spaces and extra commas
-  gj <- lapply(gj, function(x) {
-    x <- strsplit(x, "},")[[1]][2]
-    x <- gsub(" ", "", x)
-    x <- gsub("}},", "}}", x)
-    x <- gsub('"geometry\":', "", x)
-    x <- gsub(']}}', "]}", x)
+  gj = lapply(gj, function(x) {
+    x = strsplit(x, "},")[[1]][2]
+    x = gsub(" ", "", x)
+    x = gsub("}},", "}}", x)
+    x = gsub('"geometry\":', "", x)
+    x = gsub(']}}', "]}", x)
     x
   })
 
-  result <- unlist(gj)
+  result = unlist(gj)
 
-  class(result) <- c("geojson", "json", class(result))
+  class(result) = c("geojson", "json", class(result))
 
   return(result)
 
@@ -111,15 +111,15 @@ as.geojson.default <- function(lonlat,
 #' @rdname as.geojson
 #' @method as.geojson sf
 #' @export
-as.geojson.sf <- function(lonlat,
+as.geojson.sf = function(lonlat,
                           dist = 0.00001,
                           nQuadSegs = 2L,
                           ...) {
   # check geometry type
-  type <- c("POINT", "POLYGON")
+  type = c("POINT", "POLYGON")
 
   # check for supported types
-  supp_type <-
+  supp_type =
     c(all(grepl(type[[1]], sf::st_geometry_type(lonlat))),
       all(grepl(type[[2]], sf::st_geometry_type(lonlat))))
 
@@ -130,53 +130,53 @@ as.geojson.sf <- function(lonlat,
     )
   }
 
-  type <- type[which(supp_type)]
+  type = type[which(supp_type)]
 
   if (type == "POINT") {
-    n <- dim(lonlat)[[1]]
+    n = dim(lonlat)[[1]]
 
     # set the buffer around the points
-    lonlatb <- sf::st_buffer(lonlat,
+    lonlatb = sf::st_buffer(lonlat,
                              dist = dist,
                              nQuadSegs = nQuadSegs,
                              ...)
 
     # transform into a sf object
-    lonlatb <- sf::st_as_sf(lonlatb,
+    lonlatb = sf::st_as_sf(lonlatb,
                             crs = "+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0")
   }
 
   if (type == "POLYGON") {
-    lonlatb <- lonlat
+    lonlatb = lonlat
 
   }
 
 
   # write the geojson string
-  tf <- tempfile(fileext = ".geojson")
+  tf = tempfile(fileext = ".geojson")
   sf::st_write(lonlatb, tf, quiet = TRUE)
 
   # capture these strings
-  gj <- readLines(tf)
+  gj = readLines(tf)
 
   # keep only the geometry vectors
-  index <- which(grepl("geometry", unlist(gj)))
+  index = which(grepl("geometry", unlist(gj)))
 
-  gj <- gj[index]
+  gj = gj[index]
 
   # remove spaces and extra commas
-  gj <- lapply(gj, function(x) {
-    x <- strsplit(x, "},")[[1]][2]
-    x <- gsub(" ", "", x)
-    x <- gsub("}},", "}}", x)
-    x <- gsub('"geometry\":', "", x)
-    x <- gsub(']}}', "]}", x)
+  gj = lapply(gj, function(x) {
+    x = strsplit(x, "},")[[1]][2]
+    x = gsub(" ", "", x)
+    x = gsub("}},", "}}", x)
+    x = gsub('"geometry\":', "", x)
+    x = gsub(']}}', "]}", x)
     x
   })
 
-  result <- unlist(gj)
+  result = unlist(gj)
 
-  class(result) <- c("geojson", "json", class(result))
+  class(result) = c("geojson", "json", class(result))
 
   return(result)