andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

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
commit 2065c9c800
No known key found for this signature in database
7 changed files with 52 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

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