Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

339 migrate to teal data@main #342

Merged
merged 37 commits into from
Nov 20, 2023
Merged
Changes from 3 commits
Commits
Show all changes
37 commits
Select commit Hold shift + click to select a range
eabfa41
reduce the content of WORDLIST
m7pr Jun 30, 2023
43d2341
merge
m7pr Jul 12, 2023
993fabc
Merge branch 'main' of https://github.com/insightsengineering/teal.mo…
m7pr Jul 28, 2023
bde2c1d
Merge branch 'main' of https://github.com/insightsengineering/teal.mo…
m7pr Nov 7, 2023
3d0566b
TealData to teal_data substitution
m7pr Nov 7, 2023
49dd4c8
fix joinkeys
m7pr Nov 7, 2023
5a5e121
update NEWS
m7pr Nov 8, 2023
33f85ef
rebuild examples
m7pr Nov 8, 2023
6c2ed19
fix one more example
m7pr Nov 8, 2023
afc314a
few more teal_data changes
m7pr Nov 8, 2023
5bf9f0b
join_keys() instead of data@joinkeys
m7pr Nov 8, 2023
904e4cc
bump teal.data
m7pr Nov 8, 2023
78f95d8
fix join keys
m7pr Nov 8, 2023
671f8be
missing pipe
m7pr Nov 8, 2023
98f00c7
fix code reproducibility using within
m7pr Nov 8, 2023
af31f6a
Merge 98f00c70c985c18b582d3a2f49df00f833dddb17 into 2b1ea056164819cbd…
m7pr Nov 8, 2023
e1ec8b8
[skip actions] Restyle files
github-actions[bot] Nov 8, 2023
2d4bd0f
import rlang and !!!
m7pr Nov 8, 2023
e7d461b
Merge branch '339_migrate_to_teal_data@main' of https://github.com/in…
m7pr Nov 8, 2023
4ee7b3a
[skip actions] Roxygen Man Pages Auto Update
dependabot-preview[bot] Nov 8, 2023
4d19279
data@join_keys -> join_keys(data)
m7pr Nov 9, 2023
6fa22de
Merge 4d192794877520a30e237a4f36d497edc244f6de into 2b1ea056164819cbd…
m7pr Nov 9, 2023
500ae53
[skip actions] Restyle files
github-actions[bot] Nov 9, 2023
71f64d4
revert changes for design files
m7pr Nov 9, 2023
8f2e7ca
Merge branch '339_migrate_to_teal_data@main' of https://github.com/in…
m7pr Nov 9, 2023
07a8d41
[skip actions] Roxygen Man Pages Auto Update
dependabot-preview[bot] Nov 9, 2023
7de3979
add nolint
m7pr Nov 9, 2023
7a32b9d
Merge branch '339_migrate_to_teal_data@main' of https://github.com/in…
m7pr Nov 9, 2023
c45d12c
Merge 7a32b9dd1d475f68b1250d9e03deb26a074ed857 into 2b1ea056164819cbd…
m7pr Nov 9, 2023
0553764
[skip actions] Restyle files
github-actions[bot] Nov 9, 2023
ba3eb95
change !!!datanames to default_cdisc_join_keys[datanames]
m7pr Nov 14, 2023
7aa643a
Merge branch '339_migrate_to_teal_data@main' of https://github.com/in…
m7pr Nov 14, 2023
8067448
bump teal.data version
m7pr Nov 14, 2023
0bc4d93
remove rlang
m7pr Nov 14, 2023
43a3c9d
chore: replace `runApp` with `shinyApp`
vedhav Nov 17, 2023
347054d
chore: vbump
vedhav Nov 20, 2023
8e28189
fix: use proper keys for km and forest module
vedhav Nov 20, 2023
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 9 additions & 10 deletions R/adtteSpec.R
Original file line number Diff line number Diff line change
@@ -208,15 +208,15 @@ adtteSpecInput <- function(inputId, # nolint
#' }
#'
#' my_app <- function() {
#' data <- teal_data()
#' data <- within(data, {
#' ADTTE = teal.modules.hermes::rADTTE %>%
#' dplyr::mutate(is_event = .data$CNSR == 0)
#' MAE = hermes::multi_assay_experiment
#' })
#' datanames <- c("ADTTE", "MAE")
#' datanames(data) <- datanames
#' data@join_keys <- cdisc_join_keys(!!!datanames)
#' data <- teal_data()
#' data <- within(data, {
#' ADTTE <- teal.modules.hermes::rADTTE %>%
#' dplyr::mutate(is_event = .data$CNSR == 0)
#' MAE <- hermes::multi_assay_experiment
#' })
#' datanames <- c("ADTTE", "MAE")
#' datanames(data) <- datanames
#' data@join_keys <- cdisc_join_keys(!!!datanames)
m7pr marked this conversation as resolved.
Show resolved Hide resolved
#'
#' app <- init(
#' data = data,
@@ -392,4 +392,3 @@ adtteSpecServer <- function(id, # nolint
)
})
}

8 changes: 4 additions & 4 deletions R/forestplot.R
Original file line number Diff line number Diff line change
@@ -13,9 +13,9 @@
#' @examples
#' data <- teal_data()
#' data <- within(data, {
#' ADTTE = teal.modules.hermes::rADTTE %>%
#' ADTTE <- teal.modules.hermes::rADTTE %>%
#' dplyr::mutate(is_event = .data$CNSR == 0)
#' MAE = hermes::multi_assay_experiment
#' MAE <- hermes::multi_assay_experiment
#' })
#' datanames <- c("ADTTE", "MAE")
#' datanames(data) <- datanames
@@ -285,9 +285,9 @@
sample_tm_g_forest_tte <- function() { # nolint
data <- teal_data()
data <- within(data, {
ADTTE = teal.modules.hermes::rADTTE %>%
ADTTE <- teal.modules.hermes::rADTTE %>%

Check warning on line 288 in R/forestplot.R

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=R/forestplot.R,line=288,col=5,[object_name_linter] Variable and function name style should match snake_case or symbols.
dplyr::mutate(is_event = .data$CNSR == 0)
MAE = hermes::multi_assay_experiment
MAE <- hermes::multi_assay_experiment

Check warning on line 290 in R/forestplot.R

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=R/forestplot.R,line=290,col=5,[object_name_linter] Variable and function name style should match snake_case or symbols.
})
datanames <- c("ADTTE", "MAE")
datanames(data) <- datanames
8 changes: 4 additions & 4 deletions R/km.R
Original file line number Diff line number Diff line change
@@ -14,9 +14,9 @@
#' @examples
#' data <- teal_data()
#' data <- within(data, {
#' ADTTE = teal.modules.hermes::rADTTE %>%
#' ADTTE <- teal.modules.hermes::rADTTE %>%
#' dplyr::mutate(is_event = .data$CNSR == 0)
#' MAE = hermes::multi_assay_experiment
#' MAE <- hermes::multi_assay_experiment
#' })
#' datanames <- c("ADTTE", "MAE")
#' datanames(data) <- datanames
@@ -277,9 +277,9 @@
sample_tm_g_km <- function() { # nolint
data <- teal_data()
data <- within(data, {
ADTTE = teal.modules.hermes::rADTTE %>%
ADTTE <- teal.modules.hermes::rADTTE %>%

Check warning on line 280 in R/km.R

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=R/km.R,line=280,col=5,[object_name_linter] Variable and function name style should match snake_case or symbols.
dplyr::mutate(is_event = .data$CNSR == 0)
MAE = hermes::multi_assay_experiment
MAE <- hermes::multi_assay_experiment

Check warning on line 282 in R/km.R

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=R/km.R,line=282,col=5,[object_name_linter] Variable and function name style should match snake_case or symbols.
})
datanames <- c("ADTTE", "MAE")
datanames(data) <- datanames
7 changes: 3 additions & 4 deletions design/design_km.Rmd
Original file line number Diff line number Diff line change
@@ -141,16 +141,16 @@ library(hermes)
library(random.cdisc.data)
library(dplyr)
m7pr marked this conversation as resolved.
Show resolved Hide resolved

adsl = radsl(cached = TRUE, na_percentage = 0.2)
adsl <- radsl(cached = TRUE, na_percentage = 0.2)
adsl$SEX[1:20] <- NA
adsl$AGE[21:30] <- Inf
adsl$AGE[31:40] <- NaN
adsl$EOSDT[51:60] <- NA
adsl$EOSDT[71:70] <- NA
adsl$all_na <- NA
adsl$unknown <- as.list(adsl$SEX)
adtte = radtte(cached = TRUE, seed = 1)

adtte <- radtte(cached = TRUE, seed = 1)
adtte$CNSR <- as.logical(adtte$CNSR)
adtte$CNSR[100:110] <- NA

@@ -163,7 +163,6 @@ data <- teal_data(MAE = mae, ADSL = adsl, ADTTE = adtte)
datanames <- datanames(data)
join_keys(data) <- cdisc_join_keys(!!!datanames)
join_keys(data)["MAE"] <- c("STUDYID", "USUBJID")

```

## App Launch
4 changes: 2 additions & 2 deletions design/mae_cdisc_example.R
Original file line number Diff line number Diff line change
@@ -95,7 +95,7 @@ srv_made_up_merge_pr <- function(input, output, session, datasets, dataname) {
library(teal)
library(hermes)
library(random.cdisc.data)
adsl = radsl(cached = TRUE, na_percentage = 0.2)
adsl <- radsl(cached = TRUE, na_percentage = 0.2)
adsl$SEX[1:20] <- NA
adsl$AGE[21:30] <- Inf
adsl$AGE[31:40] <- NaN
@@ -104,7 +104,7 @@ adsl$EOSDT[71:70] <- NA
adsl$all_na <- NA
adsl$unknown <- as.list(adsl$SEX)

adtte = radtte(cached = TRUE)
adtte <- radtte(cached = TRUE)
adtte$CNSR <- as.logical(adtte$CNSR)
adtte$CNSR[100:110] <- NA

Loading