From 6ba519f5c954b8ffa6b13ba7f845488f61d464db Mon Sep 17 00:00:00 2001 From: changwoolim Date: Tue, 12 Dec 2023 19:27:55 +0900 Subject: [PATCH] Add cut_roc for jsBasicExtAddin() --- R/jsBasicGadget.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/jsBasicGadget.R b/R/jsBasicGadget.R index 9453dda0..fff5de60 100644 --- a/R/jsBasicGadget.R +++ b/R/jsBasicGadget.R @@ -980,6 +980,7 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) { ), mainPanel( withLoader(plotOutput("plot_roc"), type = "html", loader = "loader6"), + tableOutput("cut_roc"), ggplotdownUI("roc"), withLoader(DTOutput("table_roc"), type = "html", loader = "loader6") ) @@ -1200,6 +1201,10 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) { print(out_roc()$plot) }) + output$cut_roc <- renderTable({ + print(out_roc()$cut) + }) + output$table_roc <- renderDT({ datatable(out_roc()$tb, rownames = F, editable = F, extensions = "Buttons",