RのUI要素の近くにエラーメッセージを表示するにはどうすればいいですか？

Question

例コード：

ui.R

library(shiny) 

shinyUI(
    fluidRow(column(2, actionButton("add", "ADD details")), 
      fluidRow(uiOutput("ui")) 
) 
) 

server.R

shinyServer(function(input, output,session){ 
    observeEvent(
    input$add, 
    output$ui <- renderUI({ 
     isolate({ 
     fluidRow(column(4, textInput("birthweight", label = "birth weight:", value = '')), 
       column(3, numericInput("height",label = "Height:",value='')), 
       column(2, actionButton("addnew", "ADD details to database")) 
     ) 
     }) 
    }) 
) 
}) 

ユーザがいる場合、エラーメッセージがtextInputボックスの近くに表示されるべきbirthweightへの入力に入ります文字データを含む。numericInputHeightの場合も同様である。これは、ユーザーがデータを入力するか、ユーザーが「データベースに詳細を追加」アクションボタンをクリックするとすぐに表示する必要がありますが、ポップアップウィンドウではなくテキストボックスの近くにエラーメッセージとして表示する必要があります。

これはRでできますか？

Answer 1

validate機能はオプションです。別のオプションは、textInputに数値がない場合にのみ、エラーメッセージを表示するために追加のUIを使用することです。この場合、エラーメッセージに独自のCCSを追加できます。あなたのコードに基づいた例を以下に示します。ところで

library(shiny)  
ui <-shinyUI( 
    fluidRow( 
    column(2, 
     actionButton("add", "ADD details")), 
    fluidRow(uiOutput("ui")) 
) 
)  

server <- shinyServer(function(input, output,session){ 
    observeEvent(input$add, 
    output$ui <- renderUI({ 
     isolate({ 
     fluidRow( 
      column(4, 
      textInput("birthweight", label = "birth weight:", value = ''), 
      uiOutput("checkBirthweight")), 
      column(3, 
      numericInput("height",label = "Height:",value='')), 
      column(2, 
      actionButton("addnew", "ADD details to database")) 
     ) 
     }) 
    }) 
) 

    output$checkBirthweight <- renderUI({ 
    if (nchar(input$birthweight) > 0 && is.na(as.numeric(input$birthweight))) 
     p("Error: birth weight must be numeric") 
    }) 

}) 

shinyApp(ui, server) 

、問題を識別するために他の人に助けになる、あなたの質問にコードとしてあなたのコードを置くことをお勧めします。あなたは、私は誰もが独自のコードスタイルを持っていることを知っていると私はその点、私はhttps://google.github.io/styleguide/Rguide.xml