"empty data message"in renderTable

Question

일부 데이터를 표시하기 위해 사용자의 renderTable을 표시합니다. 그러나 때로는 데이터 테이블이 비어있는 경우가 있는데 "표시 할 데이터가 없음"또는 비슷한 것을 인쇄하고 싶습니다. renderTable의 기본값은 빈 데이터에는 아무 것도 표시하지 않는 것입니다. 이것이 바뀔 수 있습니까? 방법?

Answer 1

당신은 당신이 validate 기능과 같은 뭔가를 찾고 생각 (직접 테이블을 렌더링 할 수 없습니다)

datas <- data.frame() 

shiny::runApp(list(
    ui = pageWithSidebar(
    headerPanel("Example"), 
    sidebarPanel(
     selectInput("dataset", "Dataset", choices = c("iris", "datas")) 
    ), 
    mainPanel(
     uiOutput("ui") 
    ) 
), 
    server = function(input, output, session) { 

    datasetInput <- reactive({ 
     switch(input$dataset, 
      "iris" = iris, 
      "datas" = datas) 
    }) 

    output$ui <- renderUI({ 
     if(nrow(datasetInput()) == 0) 
     return("No data to show") 

     tableOutput("table") 
    }) 

    output$table <- renderTable({ 
     head(datasetInput()) 
    }) 
    } 
)) 

Answer 2

메시지 또는 "tableOutput"중 하나를 렌더링하는 renderUi에 조건을 사용할 수 있습니다. 줄리앙에서 제공

사용 예제 코드 :

datas <- data.frame() 

    shiny::runApp(list(

     ui = pageWithSidebar(

     headerPanel("Example"), 

     sidebarPanel(
      selectInput("dataset", "Dataset", choices = c("iris", "datas")) 
     ), 

     mainPanel(
      tableOutput('table') 
     ) 
    ), 

     server = function(input, output, session) { 

     datasetInput <- reactive({ 
      switch(input$dataset, 
       "iris" = iris, 
       "datas" = datas) 
     }) 


     output$table <- renderTable({ 
      y <- head(datasetInput()) 
       validate(
        need(nrow(y) > 0, "No Data to show") 
         ) 
     y 
     }) 

     } 

    )) 

`if` 문으로