fix: deprecation of .data: r-lib/tidyselect#169

MTES-MCT · Feb 25, 2023 · fa5a2da · fa5a2da
1 parent d4b51e2
commit fa5a2da
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/R/list-attachments.R b/R/list-attachments.R
@@ -30,6 +30,6 @@ list_attachments <- function(dataset = NULL) {
     return(tibble() %>% add_columns_if_empty(c("id", "rid", "title")))
   }
   if (!is.null(dataset)) ds <- filter(ds, .data$id == get_dataset_id(dataset))
-  df <- dplyr::select(ds, .data$id, .data$attachments)
-  as_tibble(tidyr::unnest(df, .data$attachments)) %>% add_columns_if_empty(c("id", "rid", "title"))
+  df <- dplyr::select(ds, "id", "attachments")
+  as_tibble(tidyr::unnest(df, "attachments")) %>% add_columns_if_empty(c("id", "rid", "title"))
 }
diff --git a/R/list-datafiles.R b/R/list-datafiles.R
@@ -30,7 +30,7 @@ list_datafiles <- function(dataset = NULL) {
   }
   if (!is.null(dataset)) ds <- filter(ds, .data$id == get_dataset_id(dataset))
 
-  df <- dplyr::select(ds, .data$id, .data$datafiles)
-  as_tibble(tidyr::unnest(df, .data$datafiles)) %>%
+  df <- dplyr::select(ds, "id", "datafiles")
+  as_tibble(tidyr::unnest(df, "datafiles")) %>%
     add_columns_if_empty(c("id", "rid", "title", "description"))
 }
diff --git a/R/list-millesimes.R b/R/list-millesimes.R
@@ -23,6 +23,6 @@ list_millesimes <- function(data = NULL) {
 
   if (!is.null(data)) df <- filter(df, .data$rid == get_datafile_rid(data))
 
-  ml <- dplyr::select(df, .data$id, .data$rid, .data$millesimes_info)
-  as_tibble(tidyr::unnest(ml, .data$millesimes_info))
+  ml <- dplyr::select(df, "id", "rid", "millesimes_info")
+  as_tibble(tidyr::unnest(ml, "millesimes_info"))
 }