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')
}else{
}
}}
})
@ -292,9 +292,13 @@ 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 %>%
mutate(Akcja=historyTableButtons)%>%
@ -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))
# }
})