Prepare release 1.1.0 (#33)

* fgeo.x is no longer imported but suggested

* Update installation instructions
* Update news
* Update revdepcheck
* Update cran comments and tidy description
* Update news
* update words list
* Update site

Author: maurolepore

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: fgeo.plot
-Title: Plot 'ForestGEO' Data
-Version: 1.0.4.9000
+Title: Plot ForestGEO Data
+Version: 1.1.0
 Authors@R: 
     c(person(given = "Mauro",
              family = "Lepore",
@@ -9,7 +9,7 @@ Authors@R:
       person(given = "CTFS-ForestGEO",
              role = c("cph", "fnd"),
              email = "ForestGEO@si.edu"))
-Description: Plot 'ForestGEO' data
+Description: Plot ForestGEO data
     (<http://www.forestgeo.si.edu/>).
 License: GPL-3
 URL: https://github.com/forestgeo/fgeo.plot,
@@ -18,28 +18,25 @@ BugReports: https://github.com/forestgeo/fgeo.plot/issues
 Depends: 
     R (>= 3.3)
 Imports: 
-    fgeo.x,
-    fgeo.tool,
     dplyr,
+    fgeo.tool,
     ggplot2,
     ggrepel,
     glue,
-    grDevices,
     magrittr,
+    purrr,
     rlang,
     stats,
-    stringr,
-    purrr
+    stringr
 Suggests: 
     covr,
+    fgeo.x,
     gridExtra,
     knitr,
     rmarkdown,
     spelling,
     testthat
-Remotes: 
-    forestgeo/fgeo.x,
-    forestgeo/fgeo.tool
+Additional_repositories: https://forestgeo.github.io/drat/
 Encoding: UTF-8
 Language: en-US
 LazyData: true

NAMESPACE

@@ -8,6 +8,7 @@ S3method(autoplot_by_species,sp)
 S3method(autoplot_by_species,sp_elev)
 S3method(print,sp_elev)
 export("%>%")
+export(assert_is_installed)
 export(autoplot)
 export(autoplot_by_species)
 export(elev)
@@ -26,6 +27,7 @@ importFrom(dplyr,group_by)
 importFrom(dplyr,mutate)
 importFrom(dplyr,select)
 importFrom(dplyr,ungroup)
+importFrom(fgeo.tool,assert_is_installed)
 importFrom(fgeo.tool,check_crucial_names)
 importFrom(fgeo.tool,flag_if)
 importFrom(fgeo.tool,is_multiple)

NEWS.md

@@ -2,9 +2,17 @@
 
 * Work in progress.
 
-# fgeo.plot 1.0.4 (GitHub release)
+# fgeo.plot 1.1.0 (GitHub release)
 
-* Use release version recrsively via @*release.
+* fgeo.x no longer is imported but instead is suggested.
+
+* Import fgeo packages via `Additional_repositories` served at <https://forestgeo.github.io/drat/>.
+
+* First argument of most visible functions now follow tidyverse principles (<http://bit.ly/2TfDcfX>).
+
+# fgeo.plot 1.0.4 (GitHub and drat release)
+
+* Use release version recursively via @*release.
 
 # fgeo.plot 1.0.3 (GitHub release)
 

R/autoplot-sp_elev.R

@@ -58,6 +58,8 @@
 #' @return A "ggplot".
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' # Species ---------------------------------------------------------------
 #' 
 #' # Small dataset with a few species for quick examples

R/autoplot.fgeo_habitat.R

@@ -8,13 +8,12 @@
 #'
 #' @examples
 #' \dontrun{
-#' fgeo_analyze_is_installed <- requireNamespace("fgeo_analyze", quietly = TRUE)
-#' if (fgeo_analyze_is_installed) {
-#'   library(fgeo.analyze)
+#' assert_is_installed("fgeo.x")
+#' assert_is_installed("fgeo.analyze")
+#' library(fgeo.analyze)
 #' 
-#'   habitats <- fgeo_habitat(fgeo.x::elevation, gridsize = 20, n = 4)
-#'   autoplot(habitats)
-#' }
+#' habitats <- fgeo_habitat(fgeo.x::elevation, gridsize = 20, n = 4)
+#' autoplot(habitats)
 #' }
 #' @family plot functions
 #' @family autoplots

R/autoplot_by_species.R

@@ -42,6 +42,8 @@
 #' @template return_a_list_of_ggplots
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' # Species ---------------------------------------------------------------
 #' # Small dataset with a few species for quick examples
 #' census <- fgeo.x::tree6_3species

R/imports-reexports.R

@@ -9,6 +9,11 @@
 #' @importFrom utils head tail
 NULL
 
+#' @importFrom fgeo.tool assert_is_installed
+#' @export
+#' @keywords internal
+fgeo.tool::assert_is_installed
+
 #' @import ggplot2
 #' @export
 ggplot2::autoplot

R/plot_dbh_bubles_by_quadrat.R

@@ -14,6 +14,8 @@
 #' @return A list which each element is a plot of class ggplot.
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' # Create a small VieFullTable
 #' first_n <- function(x, n) x %in% sort(unique(x))[1:n]
 #' small_vft <- fgeo.x::vft_4quad %>%

R/plot_tag_status_by_subquadrat.R

@@ -55,6 +55,8 @@
 #' @template return_a_list_of_ggplots
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' # Create a small VieFullTable
 #' first <- function(x) x %in% sort(unique(x))[1]
 #' small_vft <- subset(fgeo.x::vft_4quad, first(CensusID) & first(QuadratID))

R/sp_elev.R

@@ -7,6 +7,8 @@
 #' @return An S3 object of class 'sp'.
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' inherits(sp(fgeo.x::stem5), "sp")
 #' @family plot functions
 #' @family autoplots
@@ -28,8 +30,9 @@ sp <- function(sp) {
 #' @return An S3 object of class 'elev'.
 #'
 #' @examples
-#' inherits(elev(fgeo.x::elevation), "elev")
+#' assert_is_installed("fgeo.x")
 #' 
+#' inherits(elev(fgeo.x::elevation), "elev")
 #' inherits(elev(fgeo.x::elevation$col), "elev")
 #' @family plot functions
 #' @family autoplots
@@ -52,6 +55,8 @@ elev <- function(elev) {
 #' @return An S3 object of class 'sp_elev'.
 #'
 #' @examples
+#' assert_is_installed("fgeo.x")
+#' 
 #' species_elevation <- sp_elev(fgeo.x::stem5, fgeo.x::elevation)
 #' inherits(species_elevation, "sp_elev")
 #' @family plot functions