Adding I() notation in calls to read_fwf() to ensure compatibility wi…

…th readr 2.0. Adding version >= 1.0.0 to dplyr entry in DESCRIPTION.
palderman · Jul 23, 2021 · 549bccb · 549bccb
1 parent a15638a
commit 549bccb
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -7,3 +7,4 @@ issues
 cran-comments.md
 ^CRAN-RELEASE$
 LICENSE
+vignettes
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: DSSAT
 Type: Package
 Title: A Comprehensive R Interface for the DSSAT Cropping Systems Model
-Version: 0.0.2
+Version: 0.0.3
 Author: Phillip D. Alderman [aut, cre]
 Maintainer: Phillip D. Alderman <[email protected]>
 Description: The purpose of this package is to provide a comprehensive
@@ -17,13 +17,13 @@ Imports:
     utils,
     readr,
     stringr,
-    dplyr,
+    dplyr (>= 1.0.0),
     purrr,
     glue,
     tidyr,
     lubridate,
     rlang
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 Suggests: 
     knitr,
     rmarkdown

diff --git a/R/read_pest.R b/R/read_pest.R
@@ -55,7 +55,7 @@ read_pest <- function(file_name,col_types=NULL,col_names=NULL){
                     )
 
   # Extract all tiers
-  pest_coefs <- read_fwf(raw_lines[sec_begin[1]:sec_end[1]],
+  pest_coefs <- read_fwf(I(raw_lines[sec_begin[1]:sec_end[1]]),
                     fwf_pos,
                     comment = '!',
                     na = c('-99','-99.','-99.0','-99.00','-99.000',

diff --git a/R/read_tier_data.R b/R/read_tier_data.R
@@ -84,7 +84,7 @@ read_tier_data <- function(raw_lines,col_types=NULL,col_names=NULL,na_strings=NU
           }else{
             cmnt <- '!'
           }
-          tdata <- read_fwf(raw_lines[skip[i]:end[i]],
+          tdata <- read_fwf(I(raw_lines[skip[i]:end[i]]),
                             fwf_pos[[i]],
                             comment = cmnt,
                             skip = 1,