Description Usage Arguments Details Value Examples
Shiny module UI for lineplot
1 | lineUI(id, label = "lineplot")
|
id |
id |
label |
label |
Shiny module UI for lineplot
Shiny module UI for lineplot
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | library(shiny);library(ggplot2);library(ggpubr);
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
lineUI("line")
),
mainPanel(
plotOutput("line_plot"),
ggplotdownUI("line")
)
)
)
server <- function(input, output, session) {
data <- reactive(mtcars)
data.label <- reactive(jstable::mk.lev(mtcars))
out_line <- lineServer("line", data = data, data_label = data.label,
data_varStruct = NULL)
output$line_plot <- renderPlot({
print(out_line())
})
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.