Review: simplify necessary pkgs

DESCRIPTION

@@ -16,20 +16,16 @@ Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.1
 Imports:
-    usethis,
-    knitr,
   	markdown,
     rlang,
     readr,
-    data.table,
     magrittr,
     dplyr,
     tibble,
     tidyr,
     rgcam,
     ggplot2,
     stringr,
-    stringi,
     here,
     xml2,
     shiny,
@@ -42,6 +38,8 @@ Imports:
     rrapply (>= 1.2.6),
     rpackageutils
 Suggests:
+    usethis,
+    knitr,
     rprojroot,
     rmarkdown,
     testthat (>= 3.0.0),

Dockerfile

@@ -20,7 +20,6 @@ RUN R -e "remotes::install_github('JGCRI/rgcam')"
 RUN R -e "install.packages('knitr')"
 RUN R -e "install.packages('markdown')"
 RUN R -e "install.packages('readr')"
-RUN R -e "install.packages('stringi')"
 RUN R -e "install.packages('rlang')"
 RUN R -e "install.packages('readr')"
 RUN R -e "install.packages('data.table')"

NAMESPACE

@@ -98,7 +98,6 @@ export(update_user_choices_plot)
 import(dplyr)
 import(ggplot2)
 import(rgcam)
-importFrom(data.table,as.data.table)
 importFrom(dplyr,anti_join)
 importFrom(dplyr,bind_rows)
 importFrom(dplyr,distinct)

R/app_functions.R

@@ -229,7 +229,7 @@ reset_first_load <- function() {
 #' @keywords internal
 #' @importFrom magrittr %>%
 #' @importFrom dplyr filter select
-#' @importFrom data.table as.data.table
+#' @importFrom tibble as_tibble
 #' @return subseted dataset
 #' @export
 do_data_sample <- function(sdata, sel_scen, sel_years, sel_cols, sel_vars, sel_reg,
@@ -260,7 +260,7 @@ do_data_sample <- function(sdata, sel_scen, sel_years, sel_cols, sel_vars, sel_r
     filter(Variable %in% vars) %>%
     filter(Region %in% reg) %>%
     select(c(sel_cols, sel_years)) %>%
-    as.data.table()
+    as_tibble()
 
   return(data_sample)
 }