This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-19 09:14:36 +01:00
commit 04784a7a24
No known key found for this signature in database
34 changed files with 121 additions and 137 deletions

23
man/launch_FreesearchR.Rd Normal file
View file

@ -0,0 +1,23 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/launch_FreesearchR.R
\name{launch_FreesearchR}
\alias{launch_FreesearchR}
\title{Easily launch the FreesearchR app}
\usage{
launch_FreesearchR(...)
}
\arguments{
\item{...}{passed on to \code{shiny::runApp()}}
}
\value{
shiny app
}
\description{
All data.frames in the global environment will be accessible through the app.
}
\examples{
\dontrun{
data(mtcars)
shiny_FreesearchR(launch.browser = TRUE)
}
}

View file

@ -1,17 +0,0 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/shiny_freesearcheR.R
\name{launch_freesearcheR}
\alias{launch_freesearcheR}
\title{Easily launch the freesearcheR app}
\usage{
launch_freesearcheR(...)
}
\arguments{
\item{...}{passed on to \code{shiny::runApp()}}
}
\value{
shiny app
}
\description{
Easily launch the freesearcheR app
}

View file

@ -4,7 +4,13 @@
\alias{plot.tbl_regression}
\title{Regression coef plot from gtsummary. Slightly modified to pass on arguments}
\usage{
\method{plot}{tbl_regression}(x, ...)
\method{plot}{tbl_regression}(
x,
plot_ref = TRUE,
remove_header_rows = TRUE,
remove_reference_rows = FALSE,
...
)
}
\arguments{
\item{x}{(\code{tbl_regression}, \code{tbl_uvregression})\cr
@ -20,7 +26,7 @@ Regression coef plot from gtsummary. Slightly modified to pass on arguments
}
\examples{
\dontrun{
mod <- lm(mpg ~ ., mtcars)
mod <- lm(mpg ~ ., default_parsing(mtcars))
p <- mod |>
gtsummary::tbl_regression() |>
plot(colour = "variable")

View file

@ -93,7 +93,7 @@ regression_table.list <- function(x, ...) {
#' @export
regression_table.default <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
# Stripping custom class
class(x) <- class(x)[class(x) != "freesearcher_model"]
class(x) <- class(x)[class(x) != "freesearchr_model"]
if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
if (!"exponentiate" \%in\% names(args.list)) {

View file

@ -1,23 +0,0 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/shiny_freesearcheR.R
\name{shiny_freesearcheR}
\alias{shiny_freesearcheR}
\title{Launch the freesearcheR tool locally}
\usage{
shiny_freesearcheR(...)
}
\arguments{
\item{...}{arguments passed on to \code{shiny::runApp()}}
}
\value{
shiny app
}
\description{
All data.frames in the global environment will be accessible through the app.
}
\examples{
\dontrun{
data(mtcars)
shiny_freesearcheR(launch.browser = TRUE)
}
}

View file

@ -5,6 +5,7 @@
\alias{update_factor_ui}
\alias{update_factor_server}
\alias{modal_update_factor}
\alias{winbox_update_factor}
\title{Module to Reorder the Levels of a Factor Variable}
\usage{
update_factor_ui(id)
@ -18,6 +19,13 @@ modal_update_factor(
size = "l",
footer = NULL
)
winbox_update_factor(
id,
title = i18n("Update levels of a factor"),
options = shinyWidgets::wbOptions(),
controls = shinyWidgets::wbControls()
)
}
\arguments{
\item{id}{Module ID.}
@ -39,6 +47,10 @@ pass \code{\link[bslib:bs_theme]{bslib::bs_theme()}} to the \code{theme} argumen
like \code{\link[shiny:fluidPage]{fluidPage()}}).}
\item{footer}{UI for footer. Use \code{NULL} for no footer.}
\item{options}{List of options, see \code{\link[shinyWidgets:wbOptions]{wbOptions()}}.}
\item{controls}{List of controls, see \code{\link[shinyWidgets:wbControls]{wbControls()}}.}
}
\value{
A \code{\link[shiny:reactive]{shiny::reactive()}} function returning the data.