Блог

Я создаю приложение в shiny и хочу, чтобы основная панель занимала 100% экрана, как я могу этого добиться? В этом случае я показываю таблицу, но я также хотел бы добавить график, чтобы его можно было видеть большим.

Ниже я показываю код, который я использую

экран блестящий

 library(shiny)
library(DT)

shinyUI(fluidPage(
    
    # Application title
    titlePanel("Company-Feature Chart"),
    
    
    
    mainPanel(
        uiOutput("seleccione_col1"),
        uiOutput("seleccione_col2"),
        DT::dataTableOutput(outputId =
                                "diagram")
    )
)
)



shinyServer(function(input, output) {
    
    datachart <- read.csv("examplechart1.csv", row.names=1, sep=";")
    
    output$seleccione_col1<- renderUI({
         selectInput(inputId="columnaD", (("Product")), 
                    choices  =names(datachart),
                    selected = names(datachart)[c(1,2)],multiple = TRUE)
    })
    
    output$seleccione_col2<- renderUI({
        
        
        selectInput(inputId="columnaE", (("Features")), 
                    choices  =row.names(datachart),
                    selected = row.names(datachart)[1],multiple = TRUE)
    })
    
 
    output$diagram<- renderDataTable({
        req(input$columnaE)
        
        data  <-datachart[input$columnaE,input$columnaD]

        DT::datatable(data, escape = FALSE,options = list(sDom  = '<"top">lrt<"bottom">ip',lengthChange = FALSE))
    },  rownames = TRUE)
    
})
 

Используйте width опцию:

 mainPanel(
    uiOutput("seleccione_col1"),
    uiOutput("seleccione_col2"),
    DT::dataTableOutput(outputId = "diagram"),
    width = 12
)