只有當數據加載在閃亮的應用程序時才顯示框

Question

我做了一個閃亮的應用程序，我想在其上面顯示它。由於我的數據量很大，因此我將其設置爲可滾動並放在一個盒子中。

現在我只想在加載數據時顯示該框。

我想有條件的面板，但沒有奏效。

下面是代碼

ui.R

library(shiny) 
library(shinydashboard) 
library(DT) 
library(ggvis) 
library(shiny) 

ui <- dashboardPage(
    dashboardHeader(title = "Dashboard"), 
    dashboardSidebar(sidebarMenu(

    menuItem("Data", tabName = "uploadData", icon = icon("table")) 

)), 
    dashboardBody(
    tabItems(
     # First tab content 
     tabItem(tabName = "gebIns" 
    ), 

     # Second tab content 
     tabItem(tabName = "uploadData", 
       fluidPage(
       fluidRow(
        column(3,titlePanel("Upload Your Data"), 
         fileInput('file1', 'Choose CSV File', 
            accept=c('text/csv', 
              'text/comma-separated-values,text/plain', 
              '.csv')), 
         tags$hr(), 
         checkboxInput('header', 'Header', TRUE), 
         fluidRow(column(6, 
             radioButtons('sep', 'Separator', 
                 c(Comma=',', 
                 Semicolon=';', 
                 Tab='\t'), 
                 ',')), 
            column(6, 
             radioButtons('quote', 'Quote', 
                 c(None='', 
                 'Double Quote'='"', 
                 'Single Quote'="'"), 
                 '"'))), 
         selectInput('y', 'Y Variable', '---'), 
         numericInput('noOfVar', 'Number of Variables', 1), 
         actionButton("submit", "Submit") 
       ), 

        column(9, 
         box(
          title = "Data", width = NULL, status = "primary", 
          div(style = 'overflow-x: scroll', DT::dataTableOutput('contents')) 
         ) 
       ) 
       ) 
      ) 
    ) 
    ) 
) 
) 

server.R

shinyServer(function(input, output, session) { 
    #load the data when the user inputs a file 
    theData <- reactive({ 
    infile <- input$file1   
    if(is.null(infile)) 
     return(NULL)   
    d <- read.csv(infile$datapath, header = T) 
    d   
    }) 

    output$contents <- DT::renderDataTable({ 
    data1 <- theData() 
    }) 

    # dynamic variable names 
    observe({ 
    data<-theData() 
    updateSelectInput(session, 'y', choices = names(data)) 
    }) 
    #gets the y variable name, will be used to change the plot legends 
    yVarName<-reactive({ 
    input$y 
    }) 
}) 

Answer 1

您可以對數據使用renderUI和條件輸出：

# ui.R 
    column(9,uiOutput("box")) 

# server.R 
    output[["box"]] <- renderUI({ 

    if(is.null(theData()))return() 
    box(
     title = "Data", width = NULL, status = "primary", 
     div(style = 'overflow-x: scroll;', DT::dataTableOutput('contents')) 
    ) 

    })