getting ready for submission

DESCRIPTION

@@ -29,7 +29,6 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.3
 Suggests: 
-    curl,
     globals (>= 0.14.0),
     knitr,
     rmarkdown,

NAMESPACE

@@ -9,19 +9,15 @@ export(citation_ui)
 export(env_parm_labeller)
 export(filter_NOAA)
 export(filter_server)
-export(filter_ui)
 export(get_NOAA)
 export(input_server)
-export(input_ui)
 export(list_NOAA)
 export(output_server)
 export(output_ui)
 export(plot_NOAA)
 export(plot_server)
-export(plot_ui)
 export(reproject)
 export(table_server)
-export(table_ui)
 export(url_parser)
 import(miniUI)
 import(ncmeta)

R/NOAA_addin.R

@@ -9,7 +9,7 @@
 #'
 #' @examples
 #'
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' # run RStudio addin (can also be launched from `Addins` dropdown menu)
 #' NOAA_addin()

R/NOAA_app.R

@@ -9,7 +9,7 @@
 #'
 #' @examples
 #'
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' # run app
 #' NOAA_app()

R/data_module.R

@@ -16,12 +16,11 @@
 #' @inheritParams get_NOAA
 #'
 #' @return Shiny module.
-#' @export
 #'
 #' @examples
 #'
 #' # run data module stand-alone
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' library(oceanexplorer)
 #' library(shiny)

R/filter_NOAA.R

@@ -31,7 +31,7 @@
 #' @export
 #'
 #' @examples
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' # get atlas
 #' NOAAatlas <- get_NOAA("oxygen", 1, "annual")

R/filter_module.R

@@ -10,12 +10,11 @@
 #' @param ivars Character vector for the variables for filtering.
 #'
 #' @return Shiny module.
-#' @export
 #'
 #' @examples
 #'
 #' # run filter module stand-alone
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' library(oceanexplorer)
 #' library(shiny)

R/get_NOAA.R

@@ -31,7 +31,7 @@
 #' # path to NOAA server or local data source
 #' url_parser("oxygen", 1, "annual")
 #'
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' # retrieve NOAA data
 #' get_NOAA("oxygen", 1, "annual")

R/plot_NOAA.R

@@ -30,7 +30,7 @@
 #' @export
 #'
 #' @examples
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' # data
 #' NOAA <- get_NOAA("oxygen", 1, "annual")

R/plot_module.R

@@ -9,12 +9,11 @@
 #' @param points Add locations of extracted point geometry.
 #'
 #' @return Shiny module.
-#' @export
 #'
 #' @examples
 #'
 #' # run plot module stand-alone
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #'
 #' library(oceanexplorer)
 #' library(shiny)

R/table_module.R

@@ -7,11 +7,10 @@
 #' @param download Add download button.
 #'
 #' @return Shiny module.
-#' @export
 #'
 #' @examples
 #'
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #' # run table module stand-alone
 #'
 #' library(oceanexplorer)

R/utils.R

@@ -12,7 +12,7 @@
 #'
 #' @examples
 #'
-#' if (curl::has_internet() && interactive()) {
+#' if (interactive()) {
 #' # get data
 #' NOAA <- get_NOAA("temperature", 1, "annual")
 #'

vignettes/oceanexplorer.Rmd

@@ -116,7 +116,7 @@ Imagine we are interested in phosphate concentrations in the month December from
 
 First, we extract the data by proving the variable, grid resolution, and the averaging period. Make sure to have an internet connection in order to connect to the NOAA server.
 
-```{r setup, eval = curl::has_internet(), error=TRUE}
+```{r setup, cache=TRUE, error=TRUE}
 # load package
 library(oceanexplorer)
 # get data
@@ -129,11 +129,11 @@ This operation can take a while, but it can be sped-up during future calls by ca
 
 Then we can plot the phosphate data from a depth of 1000 meter below sea level.
 
-```{r plot1, fig.width=7, eval = exists("WOA")}
+```{r plot1, fig.width=7, eval = interactive() && exists("WOA")}
 plot_NOAA(WOA, depth = 1000)
 ```
 
-```{r save1, echo=FALSE, eval = exists("WOA"), message=FALSE}
+```{r save1, echo=FALSE, eval = interactive() && exists("WOA"), message=FALSE}
 ggplot2::ggsave("NOAA_plot1.png", plot_NOAA(WOA, depth = 1000), width = 9)
 ```
 
@@ -145,17 +145,17 @@ knitr::include_graphics("NOAA_plot1.png")
 
 Finally, we can filter a data point from, for example, the Agulhas Basin.
 
-```{r filter, eval = exists("WOA")}
+```{r filter, cache=TRUE}
 (pts <- filter_NOAA(WOA, depth = 1000, coord = list(lon = 20, lat = -46)))
 ```
 
 We can then also project these extraction points on the world map for future reference.
 
-```{r plot2, fig.width=7, eval = exists("WOA")}
+```{r plot2, fig.width=7, eval = interactive() && exists("WOA")}
 plot_NOAA(WOA, depth = 1000, points = pts)
 ```
 
-```{r save2, echo=FALSE, eval = exists("WOA"), message=FALSE}
+```{r save2, echo=FALSE, eval = interactive() && exists("WOA"), message=FALSE}
 ggplot2::ggsave("NOAA_plot2.png", plot_NOAA(WOA, depth = 1000, points = pts), width = 9)
 ```
 

vignettes/oceanexplorer_cache/html/__packages

@@ -0,0 +1 @@
+oceanexplorer