From 8f28bc7d59e910218b8797f10a9d5e3818b98c43 Mon Sep 17 00:00:00 2001
From: Daniel Sjoberg <danield.sjoberg@gmail.com>
Date: Thu, 21 Nov 2024 21:14:06 -0800
Subject: [PATCH] Update tbl_svysummary.R

---
 R/tbl_svysummary.R | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/R/tbl_svysummary.R b/R/tbl_svysummary.R
index dd1401d37..5e344ecfa 100644
--- a/R/tbl_svysummary.R
+++ b/R/tbl_svysummary.R
@@ -234,7 +234,7 @@ tbl_svysummary <- function(data,
   # fill each element of digits argument
   if (!missing(digits)) {
     digits <-
-      svyselect(data, all_of(include)) |>
+      data |>
       assign_summary_digits(statistic, type, digits = digits)
   }
 
@@ -375,7 +375,3 @@ tbl_svysummary <- function(data,
   x
 }
 
-svyselect <- function(.data, ...) {
-  .data$variables <- dplyr::select(.data$variables, ...)
-  .data
-}