init commit

.Rbuildignore

@@ -10,3 +10,4 @@
 ^vignettes/articles$
 ^\.gitlab-ci\.yml$
 LICENSE
+.lintr

.lintr

@@ -0,0 +1,6 @@
+linters: linters_with_defaults(
+  line_length_linter = line_length_linter(120),
+  cyclocomp_linter = NULL,
+  object_usage_linter = NULL,
+  object_length_linter = NULL
+  )

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: crane
 Title: Supplements the 'gtsummary' Package for Pharmaceutical Reporting
-Version: 0.2.0.9014
+Version: 0.2.0.9015
 Authors@R: c(
     person("Daniel D.", "Sjoberg", , "danield.sjoberg@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-0862-2018")),
@@ -22,15 +22,20 @@ BugReports: https://github.com/insightsengineering/crane/issues
 Depends: 
     gtsummary (>= 2.4.0.9009),
     R (>= 4.2)
-Imports: 
+Imports:
+    assertthat (>= 0.2.1),
     broom (>= 1.0.8),
     cards (>= 0.7.0),
     cardx (>= 0.3.0),
+    cowplot (>= 1.2.0),
+    checkmate (>= 2.3.2),
     cli (>= 3.6.4),
     dplyr (>= 1.1.4),
     flextable (>= 0.9.7),
+    ggplot2 (>= 4.0.0),
     glue (>= 1.8.0),
     gt (>= 0.11.1),
+    labeling,
     lifecycle,
     rlang (>= 1.1.5),
     survival (>= 3.6-4),

NAMESPACE

@@ -10,7 +10,13 @@ export("%>%")
 export(add_blank_rows)
 export(add_hierarchical_count_row)
 export(add_overall)
+export(annot_at_risk)
+export(annot_cox_ph)
+export(annot_surv_med)
 export(filter_hierarchical)
+export(g_km)
+export(get_cox_pairwise_tbl)
+export(h_data_plot)
 export(label_roche_number)
 export(label_roche_percent)
 export(label_roche_pvalue)
@@ -36,6 +42,11 @@ export(tbl_survfit_times)
 export(theme_gtsummary_roche)
 import(glue)
 import(rlang)
+importFrom(assertthat,assert_that)
+importFrom(broom,tidy)
+importFrom(cowplot,draw_plot)
+importFrom(cowplot,ggdraw)
+importFrom(cowplot,plot_grid)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,across)
 importFrom(dplyr,all_of)
@@ -48,6 +59,40 @@ importFrom(dplyr,matches)
 importFrom(dplyr,num_range)
 importFrom(dplyr,starts_with)
 importFrom(dplyr,where)
+importFrom(ggplot2,.pt)
+importFrom(ggplot2,aes)
+importFrom(ggplot2,annotate)
+importFrom(ggplot2,coord_cartesian)
+importFrom(ggplot2,element_blank)
+importFrom(ggplot2,element_line)
+importFrom(ggplot2,element_rect)
+importFrom(ggplot2,element_text)
+importFrom(ggplot2,geom_point)
+importFrom(ggplot2,geom_ribbon)
+importFrom(ggplot2,geom_step)
+importFrom(ggplot2,ggplot)
+importFrom(ggplot2,guide_legend)
+importFrom(ggplot2,guides)
+importFrom(ggplot2,labs)
+importFrom(ggplot2,margin)
+importFrom(ggplot2,scale_color_manual)
+importFrom(ggplot2,scale_fill_manual)
+importFrom(ggplot2,scale_linetype_manual)
+importFrom(ggplot2,scale_shape_manual)
+importFrom(ggplot2,scale_x_continuous)
+importFrom(ggplot2,scale_y_continuous)
+importFrom(ggplot2,theme)
+importFrom(ggplot2,theme_bw)
+importFrom(ggplot2,theme_void)
 importFrom(gtsummary,add_overall)
 importFrom(gtsummary,filter_hierarchical)
 importFrom(gtsummary,sort_hierarchical)
+importFrom(labeling,extended)
+importFrom(rlang,.data)
+importFrom(rlang,ensym)
+importFrom(stats,pchisq)
+importFrom(survival,Surv)
+importFrom(survival,coxph)
+importFrom(survival,survdiff)
+importFrom(tidyr,pivot_wider)
+importFrom(utils,tail)

NEWS.md

@@ -1,4 +1,6 @@
-# crane 0.2.0.9014
+# crane 0.2.0.9015
+
+* Added `g_km()` function for creating Kaplan-Meier plots.
 
 * Added `list("assign_summary_type-arg:cat_threshold" = 0L)` to `theme_gtsummary_roche()`. Numeric variables with few levels will no longer default to summary type `'categorical'` in `gtsummary::tbl_summary()` and `tbl_roche_summary()`. (#79)
 

R/crane-package.R

@@ -1,6 +1,7 @@
 #' @keywords internal
 #' @import rlang
 #' @import glue glue
+#' @importFrom utils tail
 #' @importFrom dplyr across starts_with ends_with contains matches num_range
 #'                   all_of any_of everything last_col where
 "_PACKAGE"
@@ -9,7 +10,7 @@
 ## usethis namespace: end
 NULL
 
-utils::globalVariables(c("."))
+utils::globalVariables(c(".", "obj"))
 
 # using pkgs to silence NOTE
 .silence <- function() {