s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

profile fix

Browse Source
This commit is contained in:
Rafał Piskorski 2021-01-22 13:53:58 +01:00
parent 257da108ac
commit 4206bdba55
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/profil_module.R
View File

@ -258,7 +258,7 @@ profilServer <- function(input, output,session) {
) %>% tagAppendAttributes(id = 'row-content') ) %>% tagAppendAttributes(id = 'row-content')
}else{ }else{
} }}
}) })
@ -292,9 +292,13 @@ 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 %>%
mutate(Akcja=historyTableButtons)%>% mutate(Akcja=historyTableButtons)%>%
@ -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))
# } # }
}) })