feat(app-panel): improve parameter UI

.codeocean/app-panel.json

@@ -12,56 +12,73 @@
 		}
 	],
 	"categories": [
-		{
-			"id": "7Rr6IxOMDucKMImp",
-			"name": "Input Data Parameters",
-			"description": "Options for defining input data",
-			"icon": "📁"
-		},
 		{
 			"id": "EzTg1ivlFDHEy9PI",
 			"name": "Basic",
-			"icon": "📂"
+			"icon": "\ud83d\udcc2"
 		},
 		{
 			"id": "FvI4Z2eb9sjL47Jt",
 			"name": "Visualization",
 			"description": "Visualization and plotting options",
-			"icon": "📊"
+			"icon": "\ud83d\udcca"
+		},
+		{
+			"id": "7Rr6IxOMDucKMImp",
+			"name": "Advanced",
+			"description": "Advanced input data options",
+			"icon": "\ud83d\udcc1"
 		}
 	],
 	"parameters": [
 		{
 			"id": "count_type_id",
-			"category": "FvI4Z2eb9sjL47Jt",
+			"category": "EzTg1ivlFDHEy9PI",
 			"name": "Count type",
 			"param_name": "count_type",
 			"description": "Type of counts to use (e.g., filt, norm)",
+			"type": "list",
+			"value_type": "string",
+			"default_value": "filt",
+			"extra_data": [
+				"raw",
+				"clean",
+				"filt",
+				"norm"
+			]
+		},
+		{
+			"id": "group_colname_id",
+			"category": "EzTg1ivlFDHEy9PI",
+			"name": "Group column name",
+			"param_name": "group_colname",
+			"description": "Column name for sample groups",
 			"type": "text",
 			"value_type": "string",
-			"default_value": "filt"
+			"default_value": "Group"
+		},
+		{
+			"id": "label_colname_id",
+			"category": "EzTg1ivlFDHEy9PI",
+			"name": "Label column name",
+			"param_name": "label_colname",
+			"description": "Column name for sample labels",
+			"type": "text",
+			"value_type": "string",
+			"default_value": "Label"
 		},
 		{
 			"id": "sub_count_type_id",
-			"category": "FvI4Z2eb9sjL47Jt",
+			"category": "7Rr6IxOMDucKMImp",
 			"name": "Sub count type",
 			"param_name": "sub_count_type",
 			"description": "Sub count type if count_type is a list",
 			"type": "text",
 			"value_type": "string"
 		},
-		{
-			"id": "feature_id_colname_id",
-			"category": "FvI4Z2eb9sjL47Jt",
-			"name": "Feature ID column name",
-			"param_name": "feature_id_colname",
-			"description": "Column name for feature IDs",
-			"type": "text",
-			"value_type": "string"
-		},
 		{
 			"id": "sample_id_colname_id",
-			"category": "FvI4Z2eb9sjL47Jt",
+			"category": "EzTg1ivlFDHEy9PI",
 			"name": "Sample ID column name",
 			"param_name": "sample_id_colname",
 			"description": "Column name for sample IDs",
@@ -77,45 +94,40 @@
 			"type": "text",
 			"value_type": "string"
 		},
-		{
-			"id": "group_colname_id",
-			"category": "7Rr6IxOMDucKMImp",
-			"name": "Group column name",
-			"param_name": "group_colname",
-			"description": "Column name for sample groups",
-			"type": "text",
-			"value_type": "string",
-			"default_value": "Group"
-		},
-		{
-			"id": "label_colname_id",
-			"category": "7Rr6IxOMDucKMImp",
-			"name": "Label column name",
-			"param_name": "label_colname",
-			"description": "Column name for sample labels",
-			"type": "text",
-			"value_type": "string",
-			"default_value": "Label"
-		},
 		{
 			"id": "principal_components_id",
-			"category": "EzTg1ivlFDHEy9PI",
+			"category": "7Rr6IxOMDucKMImp",
 			"name": "Principal components",
 			"param_name": "principal_components",
 			"description": "Principal components to plot (comma-separated, e.g., 1,2)",
 			"type": "text",
 			"value_type": "string",
 			"default_value": "1,2"
 		},
+		{
+			"id": "feature_id_colname_id",
+			"category": "7Rr6IxOMDucKMImp",
+			"name": "Feature ID column name",
+			"param_name": "feature_id_colname",
+			"description": "Column name for feature IDs",
+			"type": "text",
+			"value_type": "string"
+		},
 		{
 			"id": "legend_position_id",
 			"category": "FvI4Z2eb9sjL47Jt",
 			"name": "Legend position",
 			"param_name": "legend_position",
 			"description": "Position of the legend",
-			"type": "text",
+			"type": "list",
 			"value_type": "string",
-			"default_value": "top"
+			"default_value": "top",
+			"extra_data": [
+				"top",
+				"bottom",
+				"left",
+				"right"
+			]
 		},
 		{
 			"id": "point_size_id",
@@ -133,9 +145,13 @@
 			"name": "Add labels",
 			"param_name": "add_label",
 			"description": "Whether to add labels to points",
-			"type": "text",
+			"type": "list",
 			"value_type": "string",
-			"default_value": "TRUE"
+			"default_value": "TRUE",
+			"extra_data": [
+				"TRUE",
+				"FALSE"
+			]
 		},
 		{
 			"id": "label_font_size_id",
@@ -173,9 +189,13 @@
 			"name": "Interactive plots",
 			"param_name": "interactive_plots",
 			"description": "Whether to create interactive plots",
-			"type": "text",
+			"type": "list",
 			"value_type": "string",
-			"default_value": "FALSE"
+			"default_value": "FALSE",
+			"extra_data": [
+				"TRUE",
+				"FALSE"
+			]
 		},
 		{
 			"id": "color_values_id",
@@ -193,4 +213,4 @@
 			"file_name": "figures/pca/pca_2D.png"
 		}
 	]
-}
+}

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Code Ocean capsule - MOSuite - plot 2D PCA
 
+## Development version
+
+- Added tests for the plot pca 2D capsule Code Ocean panel and CLI contract (#1, @phoman14).
+- Improved the Code Ocean parameter UI for the plot pca 2D capsule (#1, @phoman14).
+
 ## v2.0
 
 - Use MOSuite v0.3.0
@@ -9,4 +14,4 @@
 
 Initial release
 
-<https://poc-nci.codeocean.io/capsule/8095429/tree/v1> `bd6ca75`
+<https://poc-nci.codeocean.io/capsule/8095429/tree/v1> `bd6ca75`

code/main.R

@@ -13,22 +13,97 @@ setup_capsule_environment()
 # parse CLI arguments
 parser <- ArgumentParser()
 
-parser$add_argument("--count_type", type="character", default="filt")
-parser$add_argument("--sub_count_type", type="character", default=NULL, help="Sub count type if count_type is a list")
-parser$add_argument("--feature_id_colname", type="character", default=NULL, help="Column name for feature IDs")
-parser$add_argument("--sample_id_colname", type="character", default=NULL, help="Column name for sample IDs")
-parser$add_argument("--samples_to_rename", type="character", default="", help="Samples to rename in format old:new,old2:new2")
-parser$add_argument("--group_colname", type="character", default="Group", help="Column name for sample groups")
-parser$add_argument("--label_colname", type="character", default="Label", help="Column name for sample labels")
-parser$add_argument("--principal_components", type="character", default="1,2", help="Principal components to plot (comma-separated)")
-parser$add_argument("--legend_position", type="character", default="top", help="Position of the legend")
-parser$add_argument("--point_size", type="double", default=1, help="Size of points in plot")
-parser$add_argument("--add_label", type="logical", default=TRUE, help="Whether to add labels to points")
-parser$add_argument("--label_font_size", type="double", default=3, help="Font size for labels")
-parser$add_argument("--label_offset_x_", type="double", default=2, help="X-axis offset for labels")
-parser$add_argument("--label_offset_y_", type="double", default=2, help="Y-axis offset for labels")
-parser$add_argument("--interactive_plots", type="logical", default=FALSE, help="Whether to create interactive plots")
-parser$add_argument("--color_values", type="character", default="#5954d6,#e1562c,#b80058,#00c6f8,#d163e6,#00a76c,#ff9287,#008cf9,#006e00,#796880,#FFA500,#878500", help="Comma-separated color values")
+parser$add_argument("--count_type", type = "character", default = "filt")
+parser$add_argument(
+  "--sub_count_type",
+  type = "character",
+  default = NULL,
+  help = "Sub count type if count_type is a list"
+)
+parser$add_argument(
+  "--feature_id_colname",
+  type = "character",
+  default = NULL,
+  help = "Column name for feature IDs"
+)
+parser$add_argument(
+  "--sample_id_colname",
+  type = "character",
+  default = NULL,
+  help = "Column name for sample IDs"
+)
+parser$add_argument(
+  "--samples_to_rename",
+  type = "character",
+  default = "",
+  help = "Samples to rename in format old:new,old2:new2"
+)
+parser$add_argument(
+  "--group_colname",
+  type = "character",
+  default = "Group",
+  help = "Column name for sample groups"
+)
+parser$add_argument(
+  "--label_colname",
+  type = "character",
+  default = "Label",
+  help = "Column name for sample labels"
+)
+parser$add_argument(
+  "--principal_components",
+  type = "character",
+  default = "1,2",
+  help = "Principal components to plot (comma-separated)"
+)
+parser$add_argument(
+  "--legend_position",
+  type = "character",
+  default = "top",
+  help = "Position of the legend"
+)
+parser$add_argument(
+  "--point_size",
+  type = "double",
+  default = 1,
+  help = "Size of points in plot"
+)
+parser$add_argument(
+  "--add_label",
+  type = "logical",
+  default = TRUE,
+  help = "Whether to add labels to points"
+)
+parser$add_argument(
+  "--label_font_size",
+  type = "double",
+  default = 3,
+  help = "Font size for labels"
+)
+parser$add_argument(
+  "--label_offset_x_",
+  type = "double",
+  default = 2,
+  help = "X-axis offset for labels"
+)
+parser$add_argument(
+  "--label_offset_y_",
+  type = "double",
+  default = 2,
+  help = "Y-axis offset for labels"
+)
+parser$add_argument(
+  "--interactive_plots",
+  type = "logical",
+  default = FALSE,
+  help = "Whether to create interactive plots"
+)
+parser$add_argument(
+  "--color_values",
+  type = "character",
+  default = "#5954d6,#e1562c,#b80058,#00c6f8,#d163e6,#00a76c,#ff9287,#008cf9,#006e00,#796880,#FFA500,#878500",
+  help = "Comma-separated color values"
+)
 
 args <- parser$parse_args()
 
@@ -37,21 +112,23 @@ moo <- load_moo_from_data_dir()
 
 # run MOSuite
 plot_pca_2d(
-    moo,
-    count_type = args$count_type,
-    sub_count_type = args$sub_count_type,
-    principal_components = as.integer(parse_optional_vector(args$principal_components)),
-    feature_id_colname = args$feature_id_colname,
-    sample_id_colname = args$sample_id_colname,
-    samples_to_rename = parse_samples_to_rename(args$samples_to_rename),
-    group_colname = args$group_colname,
-    label_colname = args$label_colname,
-    legend_position = args$legend_position,
-    point_size = args$point_size,
-    add_label = args$add_label,
-    label_font_size = args$label_font_size,
-    label_offset_x_ = args$label_offset_x_,
-    label_offset_y_ = args$label_offset_y_,
-    interactive_plots = args$interactive_plots,
-    color_values = parse_optional_vector(args$color_values)
+  moo,
+  count_type = args$count_type,
+  sub_count_type = args$sub_count_type,
+  principal_components = as.integer(parse_optional_vector(
+    args$principal_components
+  )),
+  feature_id_colname = args$feature_id_colname,
+  sample_id_colname = args$sample_id_colname,
+  samples_to_rename = parse_samples_to_rename(args$samples_to_rename),
+  group_colname = args$group_colname,
+  label_colname = args$label_colname,
+  legend_position = args$legend_position,
+  point_size = args$point_size,
+  add_label = args$add_label,
+  label_font_size = args$label_font_size,
+  label_offset_x_ = args$label_offset_x_,
+  label_offset_y_ = args$label_offset_y_,
+  interactive_plots = args$interactive_plots,
+  color_values = parse_optional_vector(args$color_values)
 )

tests/test-setup.R

@@ -0,0 +1,11 @@
+testthat::test_that("test setup has expected capsule files", {
+  repo_root <- normalizePath(file.path(testthat::test_path(), "..", ".."))
+
+  testthat::expect_true(file.exists(file.path(repo_root, "code", "main.R")))
+  testthat::expect_true(file.exists(file.path(repo_root, "code", "run")))
+  testthat::expect_true(file.exists(file.path(
+    repo_root,
+    ".codeocean",
+    "app-panel.json"
+  )))
+})

tests/testthat.R

@@ -0,0 +1,3 @@
+library(testthat)
+
+test_dir(file.path("tests", "testthat"))