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

new docs
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-15 16:56:08 +02:00
parent fb6f1a708d
commit 2065c9c800
No known key found for this signature in database
7 changed files with 52 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
NAMESPACE
View file

@ -11,6 +11,7 @@ export(append_column)
export(append_list)
export(argsstring2list)
export(baseline_table)
export(class_icons)
export(clean_common_axis)
export(clean_date)
export(clean_sep)
@ -107,6 +108,7 @@ export(supported_functions)
export(supported_plots)
export(symmetrical_scale_x_log10)
export(tbl_merge)
export(type_icons)
export(update_factor_server)
export(update_factor_ui)
export(update_variables_server)
@ -114,7 +116,6 @@ export(update_variables_ui)
export(vectorSelectInput)
export(vertical_stacked_bars)
export(wide2long)
export(winbox_cut_variable)
export(winbox_update_factor)
export(wrap_plot_list)
export(write_quarto)

12
R/data-summary.R
View file

@ -297,15 +297,15 @@ add_class_icon <- function(grid, column = "class", fun=class_icons) {
#'
#' @param x character vector of data classes
#'
#' @returns
#' @returns list
#' @export
#'
#' @examples
#' "numeric" |> class_icons()
#' default_parsing(mtcars) |> sapply(class) |> class_icons()
#' "numeric" |> class_icons()|> str()
#' mtcars |> sapply(class) |> class_icons() |> str()
class_icons <- function(x) {
if (length(x)>1){
sapply(x,class_icons)
lapply(x,class_icons)
} else {
if (identical(x, "numeric")) {
shiny::icon("calculator")
@ -330,7 +330,7 @@ class_icons <- function(x) {
#'
#' @param x character vector of data classes
#'
#' @returns
#' @returns list
#' @export
#'
#' @examples
@ -338,7 +338,7 @@ class_icons <- function(x) {
#' default_parsing(mtcars) |> sapply(data_type) |> type_icons()
type_icons <- function(x) {
if (length(x)>1){
sapply(x,class_icons)
lapply(x,class_icons)
} else {
if (identical(x, "continuous")) {
shiny::icon("calculator")

2
inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 13611288
bundleId:
bundleId: 10119038
url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1

2
man/add_class_icon.Rd
View file

@ -4,7 +4,7 @@
\alias{add_class_icon}
\title{Convert class grid column to icon}
\usage{
add_class_icon(grid, column = "class")
add_class_icon(grid, column = "class", fun = class_icons)
}
\arguments{
\item{grid}{grid}

21
man/class_icons.Rd Normal file
View file

@ -0,0 +1,21 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data-summary.R
\name{class_icons}
\alias{class_icons}
\title{Get data class icons}
\usage{
class_icons(x)
}
\arguments{
\item{x}{character vector of data classes}
}
\value{
list
}
\description{
Get data class icons
}
\examples{
"numeric" |> class_icons()|> str()
mtcars |> sapply(class) |> class_icons() |> str()
}

12
man/cut-variable.Rd
View file

@ -5,7 +5,6 @@
\alias{cut_variable_ui}
\alias{cut_variable_server}
\alias{modal_cut_variable}
\alias{winbox_cut_variable}
\title{Module to Convert Numeric to Factor}
\usage{
cut_variable_ui(id)
@ -19,13 +18,6 @@ modal_cut_variable(
size = "l",
footer = NULL
)
winbox_cut_variable(
id,
title = i18n("Convert Numeric to Factor"),
options = shinyWidgets::wbOptions(),
controls = shinyWidgets::wbControls()
)
}
\arguments{
\item{id}{Module ID.}
@ -47,10 +39,6 @@ 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.

21
man/type_icons.Rd Normal file
View file

@ -0,0 +1,21 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data-summary.R
\name{type_icons}
\alias{type_icons}
\title{Get data type icons}
\usage{
type_icons(x)
}
\arguments{
\item{x}{character vector of data classes}
}
\value{
list
}
\description{
Get data type icons
}
\examples{
"ordinal" |> type_icons()
default_parsing(mtcars) |> sapply(data_type) |> type_icons()
}