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

shiny bugfix at cultivars add and croptypes table update

parent 64f1f7e8
......@@ -169,7 +169,7 @@ editableDTServer <- function(id, DTdata, disableCol = shiny::reactiveVal(c()), c
)
#DT::addRow(proxy,newline) # addRow bug, du coup on met a jour tout le tableau "server=FALSE"
shiny::isolate(rv$data <- rbind(rv$data, newline))
print(rv$data)
#print(rv$data)
# if (canRm() == TRUE) {
# proxy %>%
# DT::replaceData(data = cbind(rv$data, deleteButton(rv$data, "button", ns("deletePressed"))), resetPaging = FALSE, rownames = FALSE)
......
......@@ -537,7 +537,7 @@ server <- function(input, output, session) {
# Remove old files
cleanDir(simul_params@OutputDir)
# print(simul_params@Croptypes)
#print(simul_params@Croptypes)
# print(simul_params@Cultivars)
# print(simul_params@CultivarsGenes)
# print(simul_params@Genes)
......@@ -901,7 +901,7 @@ server <- function(input, output, session) {
# rename a cultivars in croptypes
crop <- simul_params_croptypes()
colnames(crop) <- c(colnames(simul_params_croptypes())[1:2], cultivarsTable$data[, 1])
colnames(simul_params@Croptypes) <<- colnames(crop)
simul_params <<- setCroptypes(simul_params,crop)
simul_params_croptypes(crop)
colnames(simul_params@CultivarsGenes) <<- genesTable$data[, 1]
......
Supports Markdown
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