profile fix

This commit is contained in:
Rafał Piskorski 2021-01-22 13:53:58 +01:00
parent 257da108ac
commit 4206bdba55

View File

@ -258,7 +258,7 @@ profilServer <- function(input, output,session) {
) %>% tagAppendAttributes(id = 'row-content') ) %>% tagAppendAttributes(id = 'row-content')
}else{ }else{
} }}
}) })
@ -292,8 +292,12 @@ profilServer <- function(input, output,session) {
}else{ }else{
df_historyTable<-as.data.frame(do.call(rbind, (content(r)$predictions))) 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)' ), 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)')) shinyInput(actionButton, 1, as.character(df_historyTable[rowNumber,]$id[1]), label = "Usuń", onclick = 'Shiny.onInputChange(\"del_button\", this.id)'))
}
} }
df_historyTable<-df_historyTable %>% df_historyTable<-df_historyTable %>%
@ -310,7 +314,7 @@ profilServer <- function(input, output,session) {
df_historyTable$Nazwa<-do.call(c, df_historyTable$Nazwa) df_historyTable$Nazwa<-do.call(c, df_historyTable$Nazwa)
df_historyTable$Wynik<-do.call(c, df_historyTable$Wynik) 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))
# } # }
}) })