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

Corregir cutoff para survivals.

Browse Source
This commit is contained in:
Costa
2020-11-24 14:21:07 +01:00
parent 06377857c6
commit 127802b7b7
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+8 -1
View File
@@ -36,7 +36,7 @@ ui <- fluidPage(
sidebarPanel( sidebarPanel(
fileInput(inputId = "file_analy", label = "Hoja de análisis", multiple = F), fileInput(inputId = "file_analy", label = "Hoja de análisis", multiple = F),
selectInput(inputId = "vacc", "Experimento de Vacunación", selected = "No", choices = c("Sí","No")), selectInput(inputId = "vacc", "Experimento de Vacunación", selected = "No", choices = c("Sí","No")),
sliderInput("cutoff", "Cutoff para Survival", min=100, max=1500, step=50, value=750), uiOutput('cutoffUI'),
checkboxInput("filter_stats","Filtrar Estadística") checkboxInput("filter_stats","Filtrar Estadística")
), ),
mainPanel( mainPanel(
@@ -240,6 +240,13 @@ server <- function(input, output) {
analysis$taula<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ") analysis$taula<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ")
} }
}) })
output$cutoffUI<-renderUI({
if (!is.null(analysis$taula_def)){
observeEvent(analysis$taula_def, {})
max_val<-max(analysis$taula_def$Volume)
sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val)
}
})
output$ntable<-renderTable({ output$ntable<-renderTable({
if (!is.null(input$file_analy)){ if (!is.null(input$file_analy)){
observeEvent(analysis$taula, {}) observeEvent(analysis$taula, {})