WIP - Tibble 3.0 updates.

Author: davidski

.Rbuildignore

@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^CRAN-RELEASE$
 ^.*\.Rproj$
 ^\.Rproj\.user$

.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

DESCRIPTION

@@ -30,7 +30,7 @@ Imports:
     vctrs,
     viridis
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 6.1.1
+RoxygenNote: 7.0.2
 Suggests:
     DT,
     EnvStats,

NAMESPACE

@@ -123,7 +123,6 @@ importFrom(readr,write_csv)
 importFrom(readxl,read_excel)
 importFrom(rlang,.data)
 importFrom(rlang,as_function)
-importFrom(rlang,as_list)
 importFrom(rlang,ensym)
 importFrom(rlang,exec)
 importFrom(rlang,list2)

R/encode.R

@@ -79,8 +79,9 @@ encode_scenarios <- function(scenarios, capabilities, mappings) {
 #'   IDs.
 #'
 #' @importFrom dplyr filter select
-#' @importFrom rlang .data set_names as_list
+#' @importFrom rlang .data set_names
 #' @importFrom stringi stri_split_fixed
+#' @importFrom vctrs vec_cast
 #' @param capability_ids Comma-delimited list of capabilities in scope for a scenario.
 #' @param capabilities Dataframe of master list of all qualitative capabilities.
 #'
@@ -96,7 +97,8 @@ derive_control_key <- function(capability_ids, capabilities) {
   control_frame <- dplyr::filter(capabilities, .data$capability_id %in% control_list) %>%
     dplyr::select(.data$capability_id, .data$capability)
 
-  rlang::as_list(control_frame$capability) %>%
+  #rlang::as_list(control_frame$capability) %>%
+  vctrs::vec_cast(control_frame$capability, to = list()) %>%
     rlang::set_names(control_frame$capability_id)
 
 }