marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Corregir bug al importar fichero análisis porque no encuentra columna sex.

Browse Source
This commit is contained in:
Costa
2022-02-24 14:21:31 +01:00
parent 8357293f6a
commit b2d885c2c6
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+4 -2
View File
@@ -317,14 +317,16 @@ server <- function(input, output) {
analysis$taula_vol<-NULL analysis$taula_vol<-NULL
observe({ observe({
if (!is.null(input$file_analy)){ 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({ output$cutoffUI<-renderUI({
if (!is.null(analysis$taula_def)){ if (!is.null(analysis$taula_def)){
observeEvent(analysis$taula_def, {}) observeEvent(analysis$taula_def, {})
max_val<-max(analysis$taula_def$Volume, na.rm = T) 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) sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val)
} }
}) })