andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-12-15 17:12:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: Better .rds import that will import the first element as data.frame if a list-type element is supplied.

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-10-07 12:18:23 +02:00
parent 81a1a2a870
commit 346bc7edf7
No known key found for this signature in database
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
R/import-file-ext.R
View file

@ -504,9 +504,20 @@ import_dta <- function(file) {
#' @export
#'
import_rds <- function(file) {
readr::read_rds(
out <- readr::read_rds(
file = file
)
if (is.data.frame(out)){
out
} else if (is.vector(out) && !is.null(dim(out))){
## If the data is a simple vector (simple test), it is coerced to a data.frame
as.data.frame(out)
} else {
## If not a data.frame and not a vector (probably a list of elements)
## Flattened to ensure no nested lists
as.data.frame(purrr::list_flatten(out)[[1]])
}
}
#' @title Create a select input control with icon(s)