timerocModule {jsmodule} | R Documentation |
timerocModule: shiny module server for time-dependent roc analysis
Description
shiny module server for time-dependent roc analysis
shiny module server for time-dependent roc analysis- input number of model as integer
Usage
timerocModule(
input,
output,
session,
data,
data_label,
data_varStruct = NULL,
nfactor.limit = 10,
design.survey = NULL,
id.cluster = NULL,
iid = T,
NRIIDI = T
)
timerocModule2(
input,
output,
session,
data,
data_label,
data_varStruct = NULL,
nfactor.limit = 10,
design.survey = NULL,
id.cluster = NULL,
iid = T,
NRIIDI = T
)
Arguments
input |
input |
output |
output |
session |
session |
data |
Reactive data |
data_label |
Reactuve data label |
data_varStruct |
Reactive List of variable structure, Default: NULL |
nfactor.limit |
nlevels limit in factor variable, Default: 10 |
design.survey |
Reactive survey data. default: NULL |
id.cluster |
Reactive cluster variable if marginal model, Default: NULL |
iid |
logical, get CI of AUC, Default: T |
NRIIDI |
logical, get NRI & IDI, Default: T |
Details
shiny module server for time-dependent roc analysis
shiny module server for time dependent roc analysis- input number of model as integer
Value
shiny module server for time-dependent roc analysis
shiny module server for time dependent roc analysis- input number of model as integer
See Also
quantile
setkey
data.table
rbindlist
quantile
setkey
data.table
rbindlist
Examples
library(shiny)
library(DT)
library(data.table)
library(jstable)
library(ggplot2)
library(timeROC)
library(survIDINRI)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
timerocUI("timeroc")
),
mainPanel(
plotOutput("plot_timeroc"),
ggplotdownUI("timeroc"),
DTOutput("table_timeroc")
)
)
)
server <- function(input, output, session) {
data <- reactive(mtcars)
data.label <- jstable::mk.lev(mtcars)
out_timeroc <- callModule(timerocModule, "timeroc",
data = data, data_label = data.label,
data_varStruct = NULL
)
output$plot_timeroc <- renderPlot({
print(out_timeroc()$plot)
})
output$table_timeroc <- renderDT({
datatable(out_timeroc()$tb,
rownames = F, editable = F, extensions = "Buttons",
caption = "ROC results",
options = c(jstable::opt.tbreg("roctable"), list(scrollX = TRUE))
)
})
}
library(shiny)
library(DT)
library(data.table)
library(jstable)
library(ggplot2)
library(timeROC)
library(survIDINRI)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
timerocUI("timeroc")
),
mainPanel(
plotOutput("plot_timeroc"),
ggplotdownUI("timeroc"),
DTOutput("table_timeroc")
)
)
)
server <- function(input, output, session) {
data <- reactive(mtcars)
data.label <- jstable::mk.lev(mtcars)
out_timeroc <- callModule(timerocModule2, "timeroc",
data = data, data_label = data.label,
data_varStruct = NULL
)
output$plot_timeroc <- renderPlot({
print(out_timeroc()$plot)
})
output$table_timeroc <- renderDT({
datatable(out_timeroc()$tb,
rownames = F, editable = F, extensions = "Buttons",
caption = "ROC results",
options = c(jstable::opt.tbreg("roctable"), list(scrollX = TRUE))
)
})
}