diff --git a/invivos/app.R b/invivos/app.R index e827954..0d3eb8e 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -317,14 +317,16 @@ server <- function(input, output) { analysis$taula_vol<-NULL observe({ if (!is.null(input$file_analy)){ - analysis$taula<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ") %>% select(-sex) + table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ") + if ("sex" %in% colnames(table)){table<-select(table, -sex)} + analysis$taula<-table } }) output$cutoffUI<-renderUI({ if (!is.null(analysis$taula_def)){ observeEvent(analysis$taula_def, {}) max_val<-max(analysis$taula_def$Volume, na.rm = T) - print(max_val) + # print(max_val) sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val) } })