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

data: Remove redundant species table

Browse source
This commit is contained in:
Elias Projahn 2022-01-17 20:42:27 +01:00
parent bcd2a615b1
commit 8a9ae63350
2 changed files with 5 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
R/data.R
View file

@ -27,13 +27,6 @@ species_ids_replicative <- c(
"tgelada" "tgelada"
) )
# Species from [geposan] and their aging status.
species <- geposan::species[, .(
id,
name,
replicative = id %chin% species_ids_replicative
)]
# Gene names of genes for verified TPE-OLD genes. # Gene names of genes for verified TPE-OLD genes.
genes_verified_tpe_old <- c( genes_verified_tpe_old <- c(
"C1S", "C1S",

13
R/preset_editor.R
View file

@ -72,8 +72,8 @@ preset_editor_ui <- function(id) {
# @return A reactive containing the preset. # @return A reactive containing the preset.
preset_editor_server <- function(id) { preset_editor_server <- function(id) {
moduleServer(id, function(input, output, session) { moduleServer(id, function(input, output, session) {
species_choices <- species$id species_choices <- geposan::species$id
names(species_choices) <- species$name names(species_choices) <- geposan::species$name
updateSelectizeInput( updateSelectizeInput(
session, session,
@ -83,17 +83,14 @@ preset_editor_server <- function(id) {
) )
current_preset <- reactiveVal(geposan::preset( current_preset <- reactiveVal(geposan::preset(
genes[suggested | verified == TRUE, id], genes[suggested | verified == TRUE, id]
methods = methods,
species_ids = species$id,
gene_ids = genes$id
)) ))
new_preset <- reactive({ new_preset <- reactive({
species_ids <- if (input$species == "replicative") { species_ids <- if (input$species == "replicative") {
species[replicative == TRUE, id] species_ids_replicative
} else if (input$species == "all") { } else if (input$species == "all") {
species$id geposan::species$id
} else { } else {
input$custom_species input$custom_species
} }