5

tooltipR/Shiny で、必須フィールドが入力されていないためボタンが無効になっていることをユーザーに通知するを追加したいと考えています。

パッケージを使用して表示するツールチップを取得できShinyBSますが、ボタンが無効になっていると機能しないようです。以下は最小限の作業例です。

Shiny の無効なボタンでツール ヒントを動作させるための簡単な修正方法はありますか?

ui.R

library(shinyBS)
library(shiny)
library(shinyjs)


shinyUI(pageWithSidebar(
headerPanel("actionButton test"),
sidebarPanel(
numericInput("n", "N:", min = 0, max = 100, value = 50),
br(),
actionButton("goButton", "Disabled!"),
actionButton("goButton2", "Go!"),
bsTooltip("goButton", "Tooltip broken", placement = "bottom", trigger = "hover",
           options = NULL),
bsTooltip("goButton2", "Tooltip works", placement = "bottom", trigger = "hover",
           options = NULL)
),
 mainPanel(useShinyjs(),
 verbatimTextOutput("nText")
)
))

サーバー.R

library(shiny)
library(shinyjs)
library(shinyBS)

shinyServer(function(input, output,session) {

ntext <- eventReactive(input$goButton, {
input$n
})

shinyjs::disable("goButton2")

output$nText <- renderText({
 ntext()
})
})
4

1 に答える 1

10

これは、代わりにボタンにタイトルを提供することで、問題を解決する 1 つの方法です。

#rm(list=ls())
library(shinyBS)
library(shiny)
library(shinyjs)

ui <- pageWithSidebar(
  headerPanel("actionButton test"),
  sidebarPanel(numericInput("n", "N:", min = 0, max = 100, value = 50),
    tags$div(style="display:inline-block",title="Tooltip broken",actionButton("goButton", "Disabled!")),
    tags$div(style="display:inline-block",title="Tooltip works",actionButton("goButton2", "Go!"))    
  ),
  mainPanel(useShinyjs(),
            verbatimTextOutput("nText")
  )
)

server <- shinyServer(function(input, output,session) {
  
  ntext <- eventReactive(input$goButton, {input$n})
  shinyjs::disable("goButton2")
  output$nText <- renderText({ntext()})
  
})
shinyApp(ui = ui, server = server)

ここに画像の説明を入力

于 2016-07-06T07:19:55.413 に答える