new version and formatted code

This commit is contained in:
Andreas Gammelgaard Damsbo 2026-02-23 13:22:52 +01:00
commit a7d8fd4b36
No known key found for this signature in database
27 changed files with 3736 additions and 3189 deletions

19
man/get_dimensions.Rd Normal file
View file

@ -0,0 +1,19 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/import_globalenv-ext.R
\name{get_dimensions}
\alias{get_dimensions}
\title{Extension of the helper function from datamods}
\usage{
get_dimensions(objs, filter_df = TRUE)
}
\arguments{
\item{objs}{objs}
\item{filter_df}{flag to only include data frames}
}
\value{
vector of data frames with the package names as attr
}
\description{
Extension of the helper function from datamods
}

View file

@ -12,7 +12,10 @@ import_file_ui(
preview_data = TRUE,
file_extensions = c(".csv", ".txt", ".xls", ".xlsx", ".rds", ".fst", ".sas7bdat",
".sav"),
layout_params = c("dropdown", "inline")
layout_params = c("dropdown", "inline"),
limit_default = 10000,
limit_upper = 10000,
limit_lower = 0
)
import_file_server(
@ -21,8 +24,7 @@ import_file_server(
show_data_in = c("popup", "modal"),
trigger_return = c("button", "change"),
return_class = c("data.frame", "data.table", "tbl_df", "raw"),
reset = reactive(NULL),
limit = 1e+05
reset = reactive(NULL)
)
}
\arguments{

View file

@ -19,7 +19,8 @@ import_globalenv_server(
show_data_in = c("popup", "modal"),
trigger_return = c("button", "change"),
return_class = c("data.frame", "data.table", "tbl_df", "raw"),
reset = reactive(NULL)
reset = reactive(NULL),
limit_data = NULL
)
}
\arguments{
@ -43,6 +44,8 @@ use \code{NULL} for no title or a \code{shiny.tag} for a custom one.}
\item{return_class}{Class of returned data: \code{data.frame}, \code{data.table}, \code{tbl_df} (tibble) or \code{raw}.}
\item{reset}{A \code{reactive} function that when triggered resets the data.}
\item{limit_data}{upper limit to imported data}
}
\description{
Let the user select a dataset from its own environment or from a package's environment.

View file

@ -4,10 +4,25 @@
\alias{launch_FreesearchR}
\title{Easily launch the FreesearchR app}
\usage{
launch_FreesearchR(...)
launch_FreesearchR(
inlcude_globalenv = TRUE,
data_limit_default = 1000,
data_limit_upper = 1e+05,
data_limit_lower = 1,
...
)
}
\arguments{
\item{data_limit_default}{default data set observations limit}
\item{data_limit_upper}{data set observations upper limit}
\item{data_limit_lower}{data set observations lower limit}
\item{...}{passed on to \code{shiny::runApp()}}
\item{include_globalenv}{flag to include global env (local data) as option
when loading data}
}
\value{
shiny app

View file

@ -18,9 +18,10 @@ data.frame
This function may act to guard a hosted app against very large data sets in
addition to the file size limitations.
The function will limit the data set by dropping rows.
If limit is set to 0 or NULL, the original data set is returned.
}
\examples{
prod(dim(mtcars))
limit_data_size(mtcars)
limit_data_size(mtcars,2)
limit_data_size(mtcars,100)
}