Resolves a bug where survival_plot function does not display the Y-ax…

…is percentage correctly

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: TOmicsVis
 Type: Package
 Title: TOmicsVis An All-in-One Transcriptomic Analysis and Visualization R Package with shinyapp Interface
-Version: 2.0.0
+Version: 2.1.1
 Authors@R: c(
     person(given = "Benben", family = "Miao", email = "[email protected]", 
     			 role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7307-1331")),

NEWS.md

@@ -1,4 +1,16 @@
-## TOmicsVis 2.0.0
+## TOmicsVis 2.1.1
+
+**Date**: 2024-01-10
+
+<span style="background-color: green; border-radius: 10px; padding: 0px 5px; font-weight: bold; color: white;">New Features:</span>
+
+<span style="background-color: red; border-radius: 10px; padding: 0px 5px; font-weight: bold; color: white;">Bugs Fixed:</span>
+
+1. Resolves a bug where `?TOmicsVis::survival_plot` function does not display the Y-axis percentage correctly.
+
+---
+
+## TOmicsVis 2.1.0
 
 **Date**: 2023-10-16
 

R/survival_plot.R

@@ -15,7 +15,6 @@
 #' @param y_start Numeric: y-axis start value. Default: 0, min: 0, max: 100.
 #' @param y_end Numeric: y-axis end value. Default: 100, min: 0, max: 100.
 #' @param x_break Numeric: x-axis break value. Default: 10, min: 0, max: null.
-#' @param y_break Numeric: y-axis break value. Default: 10, min: 0, max: 100.
 #'
 #' @import ggplot2
 #' @import ggsci
@@ -51,8 +50,8 @@ survival_plot <- function(data,
 													x_start = 0,
 													y_start = 0,
 													y_end = 100,
-													x_break = 10,
-													y_break = 10
+													x_break = 10
+													# y_break = 10
 													){
 	# -> 2. Data
 	data <- as.data.frame(data)
@@ -147,25 +146,28 @@ survival_plot <- function(data,
 		fit,
 		data = data,
 		fun = curve_function,
-		risk.table = risk_table,
-		pval = TRUE,
 		conf.int = conf_inter,
 		conf.int.style = interval_style,
-		size = 1,
+		# conf.int.alpha = 0.50,
+		pval = TRUE,
+		pval.method = FALSE,
 		xlab = "Time",
 		ylab = "Survival probability",
 		ggtheme = gg_theme,
-		risk.table.y.text.col = TRUE,
+		risk.table = risk_table,
 		risk.table.height = 0.25,
 		risk.table.y.text = TRUE,
+		risk.table.y.text.col = TRUE,
 		ncensor.plot = num_censor,
 		ncensor.plot.height = 0.25,
+		cumevents = FALSE,
+		cumcensor = FALSE,
 		surv.median.line = "hv",
 		palette = sci_palette,
 		xlim = c(x_start, xLimEnd),
 		ylim = c(y_start, y_end),
-		break.x.by = x_break,
-		break.y.by = y_break
+		break.x.by = x_break
+		# break.y.by = y_break
 	)
 	# p
 	# # <- 4. Plot