internalised the create_column function from datamods for ui modifications - all variable icons are the same throughout now - added custom css

man/create-column.Rd

@@ -0,0 +1,76 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/create-column-mod.R
+\name{create-column}
+\alias{create-column}
+\alias{create_column_ui}
+\alias{create_column_server}
+\alias{list_allowed_operations}
+\alias{modal_create_column}
+\alias{winbox_create_column}
+\title{Create new column}
+\usage{
+create_column_ui(id)
+
+create_column_server(
+  id,
+  data_r = reactive(NULL),
+  allowed_operations = list_allowed_operations()
+)
+
+list_allowed_operations()
+
+modal_create_column(
+  id,
+  title = i18n("Create a new column"),
+  easyClose = TRUE,
+  size = "l",
+  footer = NULL
+)
+
+winbox_create_column(
+  id,
+  title = i18n("Create a new column"),
+  options = shinyWidgets::wbOptions(),
+  controls = shinyWidgets::wbControls()
+)
+}
+\arguments{
+\item{id}{Module's ID.}
+
+\item{data_r}{A \code{\link[shiny:reactive]{shiny::reactive()}} function returning a \code{data.frame}.}
+
+\item{allowed_operations}{A \code{list} of allowed operations, see below for details.}
+
+\item{title}{An optional title for the dialog.}
+
+\item{easyClose}{If \code{TRUE}, the modal dialog can be dismissed by
+clicking outside the dialog box, or be pressing the Escape key. If
+\code{FALSE} (the default), the modal dialog can't be dismissed in those
+ways; instead it must be dismissed by clicking on a \code{modalButton()}, or
+from a call to \code{\link[shiny:removeModal]{removeModal()}} on the server.}
+
+\item{size}{One of \code{"s"} for small, \code{"m"} (the default) for medium,
+\code{"l"} for large, or \code{"xl"} for extra large. Note that \code{"xl"} only
+works with Bootstrap 4 and above (to opt-in to Bootstrap 4+,
+pass \code{\link[bslib:bs_theme]{bslib::bs_theme()}} to the \code{theme} argument of a page container
+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.
+}
+\description{
+This module allow to enter an expression to create a new column in a \code{data.frame}.
+}
+\note{
+User can only use a subset of function: (, c, +, -, *, ^, \%\%, \%/\%, /, ==, >, <, !=, <=, >=, &, |, abs, sign, sqrt, ceiling, floor, trunc, cummax, cummin, cumprod, cumsum, exp, expm1, log, log10, log2, log1p, cos, cosh, sin, sinh, tan, tanh, acos, acosh, asin, asinh, atan, atanh, cospi, sinpi, tanpi, gamma, lgamma, digamma, trigamma, round, signif, max, min, range, prod, sum, any, all, pmin, pmax, mean, paste, paste0, substr, nchar, trimws, gsub, sub, grepl, ifelse, length, as.numeric, as.character, as.integer, as.Date, as.POSIXct, as.factor, factor.
+You can add more operations using the \code{allowed_operations} argument, for  example if you want to allow to use package lubridate, you can do:
+
+\if{html}{\out{<div class="sourceCode r">}}\preformatted{c(list_allowed_operations(), getNamespaceExports("lubridate"))
+}\if{html}{\out{</div>}}
+}

man/cut_var.Rd

@@ -33,7 +33,7 @@ cut_var(x, ...)
   ...
 )
 
-\method{cut_var}{Date}(x, breaks, start.on.monday = TRUE, ...)
+\method{cut_var}{Date}(x, breaks = NULL, start.on.monday = TRUE, ...)
 }
 \arguments{
 \item{x}{an object inheriting from class "POSIXct"}
@@ -58,6 +58,8 @@ readr::parse_datetime(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-0
 readr::parse_datetime(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(breaks = "weekday")
 readr::parse_datetime(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(breaks = "month_only")
 readr::parse_datetime(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(breaks=NULL,format = "\%A-\%H")
+readr::parse_datetime(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(breaks=NULL,format = "\%W")
 as.Date(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(2)
 as.Date(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(breaks = "weekday")
+as.Date(c("1992-02-01 01:00:20", "1992-02-06 03:00:20", "1992-05-01 01:20:20", "1992-09-01 08:20:20", "1999-02-01 21:20:20", "1992-12-01 03:02:20")) |> cut_var(format = "\%W")
 }

man/get_var_icon.Rd

@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data-summary.R
+\name{get_var_icon}
+\alias{get_var_icon}
+\title{Easily get variable icon based on data type or class}
+\usage{
+get_var_icon(data, class.type = c("class", "type"))
+}
+\arguments{
+\item{data}{variable or data frame}
+
+\item{class.type}{"type" or "class". Default is "class"}
+}
+\value{
+svg icon
+}
+\description{
+Easily get variable icon based on data type or class
+}
+\examples{
+mtcars[1] |> get_var_icon("class")
+default_parsing(mtcars) |> get_var_icon()
+}

man/show_data.Rd

@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/datagrid-infos-mod.R
+\name{show_data}
+\alias{show_data}
+\title{Display a table in a window}
+\usage{
+show_data(
+  data,
+  title = NULL,
+  options = NULL,
+  show_classes = TRUE,
+  type = c("popup", "modal", "winbox"),
+  width = "65\%",
+  ...
+)
+}
+\arguments{
+\item{data}{a data object (either a \code{matrix} or a \code{data.frame}).}
+
+\item{title}{Title to be displayed in window.}
+
+\item{options}{Arguments passed to \code{\link[toastui:datagrid]{toastui::datagrid()}}.}
+
+\item{show_classes}{Show variables classes under variables names in table header.}
+
+\item{type}{Display table in a pop-up with \code{\link[shinyWidgets:sweetalert]{shinyWidgets::show_alert()}},
+in modal window with \code{\link[shiny:showModal]{shiny::showModal()}} or in a WinBox window with \code{\link[shinyWidgets:WinBox]{shinyWidgets::WinBox()}}.}
+
+\item{width}{Width of the window, only used if \code{type = "popup"} or \code{type = "winbox"}.}
+
+\item{...}{Additional options, such as \code{wbOptions = wbOptions()} or \code{wbControls = wbControls()}.}
+}
+\value{
+No value.
+}
+\description{
+Display a table in a window
+}
+\note{
+If you use \code{type = "winbox"}, you'll need to use \code{shinyWidgets::html_dependency_winbox()} somewhere in your UI.
+}