forestcoxUI {jsmodule} | R Documentation |
forestcoxUI:shiny module UI for forestcox
Description
Shiny module UI for forestcox
Usage
forestcoxUI(id, label = "forestplot")
Arguments
id |
id |
label |
label, Default: 'forestplot' |
Details
Shinymodule UI for forestcox
Value
Shinymodule UI
Examples
library(shiny)
library(DT)
mtcars$vs <- factor(mtcars$vs)
mtcars$am <- factor(mtcars$am)
mtcars$kk <- factor(as.integer(mtcars$disp >= 150))
mtcars$kk1 <- factor(as.integer(mtcars$disp >= 200))
library(shiny)
library(DT)
mtcars$vs <- factor(mtcars$vs)
mtcars$am <- factor(mtcars$am)
mtcars$kk <- factor(as.integer(mtcars$disp >= 150))
mtcars$kk1 <- factor(as.integer(mtcars$disp >= 200))
out <- mtcars
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
forestcoxUI("Forest")
),
mainPanel(
tabsetPanel(
type = "pills",
tabPanel(
title = "Data",
DTOutput("tablesub")
),
tabPanel(
title = "figure",
plotOutput("forestplot", width = "100%"),
ggplotdownUI("Forest")
)
)
)
)
)
server <- function(input, output, session) {
data <- reactive(out)
label <- reactive(jstable::mk.lev(out))
outtable <- forestcoxServer("Forest", data = data, data_label = label)
output$tablesub <- renderDT({
outtable()[[1]]
})
output$forestplot <- renderPlot({
outtable()[[2]]
})
}
[Package jsmodule version 1.5.6 Index]