プロット関数のエラー処理

Question

私はcsvファイルの入力を受け付ける光沢のあるアプリケーションを持っています。

Iはserver.R

myPlot <- function(data) {この関数は、括弧内のデータフレームの変数を使用するにプロット機能を有します。このデータフレームはアップロードされたファイルの入力です}

データフレームに関数で使用される列がない場合、光沢のあるタブでエラーが発生するとします。

このようなエラーはどのように処理されますか？

「次のファイルは互換性がありません」というメッセージを表示して処理したいと思います。

Answer 1

それはあなたの条件をチェックするためにvalidate()とneed()機能を使用することができ、@UnnamedUserが提案ばかりのとおりです。

例：私はdata$Col_Aとdata$Col_Bをプロットしようとしています。このプロットは、両方の列がdata.frameにある場合にのみレンダリングされます。それ以外の場合は、事前定義されたエラーメッセージが表示されます。

library(shiny) 

data <- data.frame(
    Col_A = 1:5, 
    Col_D = 16:20) 

ui <- fluidPage(
    plotOutput("plot") 
) 

server <- function(input, output, session){ 
    output$plot <- renderPlot({ 
    validate(
     need(
     sum(c("Col_A", "Col_B") %in% colnames(data)) == 2, "Col_A and/or Col_B columns are missing!") 
    ) 
    plot(data$Col_A, data$Col_B) 
    }) 
} 

shinyApp(ui, server)