Commit 7245c3fc authored by Jean-Francois Rey's avatar Jean-Francois Rey
Browse files

break -> cultivars genes table is reinitalise at cultivars or genes modification

parent 100a5486
......@@ -946,6 +946,7 @@ server <- function(input, output, session) {
colnames(simul_params@CultivarsGenes) <<- genesTable$data[, 1]
# if (nrow(simul_params@CultivarsGenes) != 0)
rownames(simul_params@CultivarsGenes) <<- c(cultivarsTable$data[, "cultivarName"])
printVerbose(paste0("update",simul_params@CultivarsGenes))
simul_params_cultivarsgenes(simul_params@CultivarsGenes)
# update cultivars
......@@ -991,8 +992,10 @@ server <- function(input, output, session) {
can_run_simul$cultivarsgenes <<- FALSE
}
else {
#print(simul_params@CultivarsGenes)
#print(cultivars_genesTable$data)
simul_params@CultivarsGenes <- cultivars_genesTable$data
print(simul_params@CultivarsGenes)
#print(simul_params@CultivarsGenes)
simul_params_cultivarsgenes(simul_params@CultivarsGenes)
can_run_simul$cultivarsgenes <<- TRUE
}
......@@ -1044,8 +1047,9 @@ server <- function(input, output, session) {
# rename genes in cultivars genes table
# remove line -> remove genes in cultivars genes
if (genesTable$col == 0 && nrow(simul_params@Genes) > nrow(genesTable$data)) {
#print(simul_params@CultivarsGenes)
simul_params@CultivarsGenes <<- simul_params@CultivarsGenes[, -c(genesTable$row), drop = FALSE]
printVerbose(paste0("set Cultivars Genes",simul_params@CultivarsGenes))
printVerbose(paste0("set Cultivars Genes ",simul_params@CultivarsGenes))
}
# add line -> add a genes in cultivars genes
if (nrow(simul_params@Genes) < nrow(genesTable$data)) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment