Eliminar un print
This commit is contained in:
@@ -243,7 +243,6 @@ server <- function(input, output) {
|
|||||||
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, {})
|
||||||
print(analysis$taula_def)
|
|
||||||
max_val<-max(analysis$taula_def$Volume, na.rm = T)
|
max_val<-max(analysis$taula_def$Volume, na.rm = T)
|
||||||
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)
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user