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

strugling with reactivity
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-20 13:13:14 +01:00
commit 1bfad4ba4c
No known key found for this signature in database
6 changed files with 237 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/data_plots.R
View file

@ -500,6 +500,7 @@ supported_plots <- function() {
#' possible_plots()
possible_plots <- function(data) {
# browser()
# data <- if (is.reactive(data)) data() else data
if (is.data.frame(data)) {
data <- data[[1]]
}
@ -596,6 +597,7 @@ create_plot <- function(data, type, x, y, z = NULL, ...) {
#' gtsummary::trial |> get_label(var = "trt")
#' 1:10 |> get_label()
get_label <- function(data, var = NULL) {
# data <- if (is.reactive(data)) data() else data
if (!is.null(var) & is.data.frame(data)) {
data <- data[[var]]
}

1
R/regression_model.R
View file

@ -357,6 +357,7 @@ supported_functions <- function() {
#' possible_functions(design = "cross-sectional")
possible_functions <- function(data, design = c("cross-sectional")) {
# browser()
# data <- if (is.reactive(data)) data() else data
if (is.data.frame(data)) {
data <- data[[1]]
}