johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Properly set replicative species

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 17:34:53 +02:00
parent 4cf5bff125
commit 667eb8f2a3
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/data.R
View file

@ -94,6 +94,9 @@ methods <- list(
# Gene IDs of known or suggested TPE-OLD genes. # Gene IDs of known or suggested TPE-OLD genes.
genes_tpe_old <- genes[suggested | verified == TRUE, id] genes_tpe_old <- genes[suggested | verified == TRUE, id]
# Species IDs for replicatively aging species.
species_replicative <- species[replicative == TRUE, id]
# Preset for [geposan] including all species and TPE-OLD genes for reference. # Preset for [geposan] including all species and TPE-OLD genes for reference.
preset_all_species <- geposan::preset( preset_all_species <- geposan::preset(
methods = c("clusteriness", "correlation", "proximity", "neural"), methods = c("clusteriness", "correlation", "proximity", "neural"),
@ -106,7 +109,7 @@ preset_all_species <- geposan::preset(
# TPE-OLD genes for reference. # TPE-OLD genes for reference.
preset_replicative_species <- geposan::preset( preset_replicative_species <- geposan::preset(
methods = c("clusteriness", "correlation", "proximity", "neural"), methods = c("clusteriness", "correlation", "proximity", "neural"),
species = species_ids_replicative, species = species_replicative,
genes = genes$id, genes = genes$id,
reference_genes = genes_tpe_old reference_genes = genes_tpe_old
) )

8
R/preset_editor.R
View file

@ -3,14 +3,10 @@ preset_editor_ui <- function(id) {
species_choices <- species$id species_choices <- species$id
names(species_choices) <- species$name names(species_choices) <- species$name
species_selected <- species_ids_replicative
known_genes <- genes[name != ""] known_genes <- genes[name != ""]
gene_choices <- known_genes$id gene_choices <- known_genes$id
names(gene_choices) <- known_genes$name names(gene_choices) <- known_genes$name
genes_selected <- genes[suggested | verified == TRUE, id]
verticalLayout( verticalLayout(
h3("Preset"), h3("Preset"),
selectInput( selectInput(
@ -28,7 +24,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "species"), inputId = NS(id, "species"),
label = "Included species", label = "Included species",
choices = species_choices, choices = species_choices,
selected = species_selected, selected = species_replicative,
options = list( options = list(
"actions-box" = TRUE, "actions-box" = TRUE,
"live-search" = TRUE "live-search" = TRUE
@ -39,7 +35,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "reference_genes"), inputId = NS(id, "reference_genes"),
label = "Reference genes", label = "Reference genes",
choices = gene_choices, choices = gene_choices,
selected = genes_selected, selected = genes_tpe_old,
options = list( options = list(
"actions-box" = TRUE, "actions-box" = TRUE,
"live-search" = TRUE "live-search" = TRUE