johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17: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.
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_all_species <- geposan::preset(
methods = c("clusteriness", "correlation", "proximity", "neural"),
@ -106,7 +109,7 @@ preset_all_species <- geposan::preset(
# TPE-OLD genes for reference.
preset_replicative_species <- geposan::preset(
methods = c("clusteriness", "correlation", "proximity", "neural"),
species = species_ids_replicative,
species = species_replicative,
genes = genes$id,
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
names(species_choices) <- species$name
species_selected <- species_ids_replicative
known_genes <- genes[name != ""]
gene_choices <- known_genes$id
names(gene_choices) <- known_genes$name
genes_selected <- genes[suggested | verified == TRUE, id]
verticalLayout(
h3("Preset"),
selectInput(
@ -28,7 +24,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "species"),
label = "Included species",
choices = species_choices,
selected = species_selected,
selected = species_replicative,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
@ -39,7 +35,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "reference_genes"),
label = "Reference genes",
choices = gene_choices,
selected = genes_selected,
selected = genes_tpe_old,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE