From 4206bdba55a5919fa24243d52070e35bfb70d493 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rafa=C5=82=20Piskorski?= Date: Fri, 22 Jan 2021 13:53:58 +0100 Subject: [PATCH] profile fix --- app/profil_module.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/app/profil_module.R b/app/profil_module.R index a503e95..582fbdf 100644 --- a/app/profil_module.R +++ b/app/profil_module.R @@ -258,7 +258,7 @@ profilServer <- function(input, output,session) { ) %>% tagAppendAttributes(id = 'row-content') }else{ - } + }} }) @@ -292,8 +292,12 @@ profilServer <- function(input, output,session) { }else{ df_historyTable<-as.data.frame(do.call(rbind, (content(r)$predictions))) + historyTableButtons = list() + + for(rowNumber in 1:nrow(df_historyTable)){ historyTableButtons[[rowNumber]] <-list(shinyInput(actionButton, 1, as.character(df_historyTable[rowNumber,]$id[1]), label = "Pokaż", onclick = 'Shiny.onInputChange(\"view_button\", this.id)' ), shinyInput(actionButton, 1, as.character(df_historyTable[rowNumber,]$id[1]), label = "Usuń", onclick = 'Shiny.onInputChange(\"del_button\", this.id)')) + } } df_historyTable<-df_historyTable %>% @@ -310,7 +314,7 @@ profilServer <- function(input, output,session) { df_historyTable$Nazwa<-do.call(c, df_historyTable$Nazwa) df_historyTable$Wynik<-do.call(c, df_historyTable$Wynik) - DT::datatable(df_historyTable,selection="none",options = list(scrollX = TRUE,language=pl))} + DT::datatable(df_historyTable,selection="none",options = list(scrollX = TRUE,language=pl)) # } })