mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2026-06-19 04:27:30 +02:00
This commit is contained in:
parent
5a343f98cd
commit
39c948e12c
12 changed files with 166 additions and 185 deletions
|
|
@ -1 +1 @@
|
|||
app_version <- function()'v25.4.3.250424'
|
||||
app_version <- function()'v25.4.3.250428'
|
||||
|
|
|
|||
|
|
@ -23,7 +23,7 @@
|
|||
#'
|
||||
#' @name create-column
|
||||
#'
|
||||
#' @example example/create_column_module_demo.R
|
||||
#' @example examples/create_column_module_demo.R
|
||||
create_column_ui <- function(id) {
|
||||
ns <- NS(id)
|
||||
tagList(
|
||||
|
|
|
|||
|
|
@ -16,11 +16,6 @@
|
|||
#' @return No value.
|
||||
#' @export
|
||||
#'
|
||||
#' @importFrom htmltools tags tagList css
|
||||
#' @importFrom shiny showModal modalDialog
|
||||
#' @importFrom utils modifyList packageVersion
|
||||
#'
|
||||
#' @example examples/show_data.R
|
||||
show_data <- function(data,
|
||||
title = NULL,
|
||||
options = NULL,
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@ plot_box_single <- function(data, pri, sec=NULL, seed = 2103) {
|
|||
ggplot2::ggplot(ggplot2::aes(x = !!dplyr::sym(pri), y = !!dplyr::sym(sec), fill = !!dplyr::sym(sec), group = !!dplyr::sym(sec))) +
|
||||
ggplot2::geom_boxplot(linewidth = 1.8, outliers = FALSE) +
|
||||
## THis could be optional in future
|
||||
ggplot2::geom_jitter(color = "black", size = 2, alpha = 0.9, width = 0.1, height = .5) +
|
||||
ggplot2::geom_jitter(color = "black", size = 2, alpha = 0.9, width = 0.1, height = .2) +
|
||||
ggplot2::coord_flip() +
|
||||
viridis::scale_fill_viridis(discrete = discrete, option = "D") +
|
||||
# ggplot2::theme_void() +
|
||||
|
|
|
|||
BIN
R/sysdata.rda
BIN
R/sysdata.rda
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue