From 64b75584494adf3fbb31a3c880c9fcb9c446ebcb Mon Sep 17 00:00:00 2001 From: Ming Yang Date: Tue, 26 Nov 2024 19:50:03 +0800 Subject: [PATCH] Fix styler issues --- R/utils.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/utils.R b/R/utils.R index e2aa9b3..2d01574 100644 --- a/R/utils.R +++ b/R/utils.R @@ -58,7 +58,7 @@ create_data_list <- function(file_path, file_names, prefer_sas) { #' @keywords internal read_file_and_attach_metadata <- function(path) { extension <- tools::file_ext(path) - + if (toupper(extension) == "RDS") { data <- readRDS(path) } else if (toupper(extension) == "SAS7BDAT") { @@ -66,13 +66,13 @@ read_file_and_attach_metadata <- function(path) { } else { stop("Not supported file type, only .rds or .sas7bdat files can be loaded.") } - + meta <- file.info(path, extra_cols = FALSE) meta[["path"]] <- path meta[["file_name"]] <- basename(path) row.names(meta) <- NULL - + attr(data, "meta") <- meta - + return(data) }