new docs

NAMESPACE

@@ -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)

R/data-summary.R

@@ -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()
+#' "numeric" |> class_icons()|> str()
-#' default_parsing(mtcars) |> sapply(class) |> class_icons()
+#' 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")

inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf

@@ -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

man/add_class_icon.Rd

@@ -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}

man/class_icons.Rd

@@ -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()
+}

man/cut-variable.Rd

@@ -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.

man/type_icons.Rd

@@ -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()
+}