From ff4d35f48c8c2076a98d748912492573e88caad2 Mon Sep 17 00:00:00 2001
From: Jennifer Thom <jennifer.thom@phs.scot>
Date: Fri, 1 Sep 2023 12:07:43 +0100
Subject: [PATCH] Use `col_select` instead of `columns` in tests

---
 R/get_existing_data_for_tests.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/get_existing_data_for_tests.R b/R/get_existing_data_for_tests.R
index 91fa2293e..1dd0b350e 100644
--- a/R/get_existing_data_for_tests.R
+++ b/R/get_existing_data_for_tests.R
@@ -46,7 +46,7 @@ get_existing_data_for_tests <- function(new_data, file_version = "episode") {
     slf_data <- suppressMessages(slfhelper::read_slf_episode(
       year = year,
       recids = recids,
-      columns = variable_names
+      col_select = variable_names
     ))
     if ("hscp2018" %in% variable_names) {
       slf_data <- dplyr::rename(slf_data, "hscp" = "hscp2018")
@@ -54,7 +54,7 @@ get_existing_data_for_tests <- function(new_data, file_version = "episode") {
   } else {
     slf_data <- suppressMessages(slfhelper::read_slf_individual(
       year = year,
-      columns = variable_names
+      col_select = variable_names
     ))
   }