naming and dealing with a dependency issue. ready for first release

This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-19 15:26:23 +01:00
commit a01f7157b5
No known key found for this signature in database
30 changed files with 664 additions and 1026 deletions

23
man/file_export.Rd Normal file
View file

@ -0,0 +1,23 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/helpers.R
\name{file_export}
\alias{file_export}
\title{Title}
\usage{
file_export(data, output.format = c("df", "teal", "list"), filename, ...)
}
\arguments{
\item{data}{data}
\item{output.format}{output}
\item{filename}{filename}
\item{...}{passed on}
}
\value{
data
}
\description{
Title
}

View file

@ -18,7 +18,9 @@ factor
Test class
}
\examples{
\dontrun{
vapply(REDCapCAST::redcapcast_data, \(.x){
is_any_class(.x, c("hms", "Date", "POSIXct", "POSIXt"))
}, logical(1))
}
}

View file

@ -1,17 +0,0 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/file-import-module.R
\name{m_datafileUI}
\alias{m_datafileUI}
\title{Shiny UI module to load a data file}
\usage{
m_datafileUI(id)
}
\arguments{
\item{id}{id}
}
\value{
shiny UI
}
\description{
Shiny UI module to load a data file
}

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) != "webresearch_model"]
class(x) <- class(x)[class(x) != "freesearcher_model"]
if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
if (!"exponentiate" \%in\% names(args.list)) {

23
man/shiny_freesearcheR.Rd Normal file
View file

@ -0,0 +1,23 @@
% 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

@ -1,26 +0,0 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/shiny_webResearch.R
\name{shiny_webResearch}
\alias{shiny_webResearch}
\title{Test version of the shiny_cast function to launch the app with a data set in
the environment.}
\usage{
shiny_webResearch(data = NULL, ...)
}
\arguments{
\item{data}{optional data set to provide for analysis}
\item{...}{arguments passed on to \code{shiny::runApp()}}
}
\value{
shiny app
}
\description{
Test version of the shiny_cast function to launch the app with a data set in
the environment.
}
\examples{
\dontrun{
mtcars |> shiny_webResearch(launch.browser = TRUE)
}
}