1

私はserver.Rに次のものを持っています

shinyServer(function(input, output) {

# builds a reactive expression that only invalidates 
# when the value of input$goButton becomes out of date 
# (i.e., when the button is pressed)
ntext <- eventReactive(input$goButton, {
input$n
})

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

および ui.R の以下

shinyUI(pageWithSidebar(
headerPanel("actionButton test"),
sidebarPanel(
numericInput("n", "N:", min = 0, max = 100, value = 50),
br(),
actionButton("goButton", "Go!"),
p("Click the button to update the value displayed in the main panel.")
),
mainPanel(
verbatimTextOutput("nText")
)
))

私の目標は、5回クリックするとアクションボタンが消えるようにし、5回未満クリックするとポップアップウィンドウの警告を表示することです。

4

2 に答える 2

1

リアクティブを定義する必要はありませんn。すでに の値ですinput$btn。

library(shiny)
library(shinyjs)

ui <- shinyUI(
  fluidPage(
    useShinyjs(),
    sidebarPanel(
      actionButton('btn','Click me')
    ),
    mainPanel(
      verbatimTextOutput("nText")
    )
  )
)

server <- shinyServer(function(input,output,session){

  observe({ 
    if(input$btn < 5){
      info('Msg')
    } else {
      hide('btn')
    }
  })

  output$nText <- renderText({
    input$btn
  })

})

shinyApp(ui=ui,server=server)
于 2017-05-12T19:09:50.197 に答える
1

@daattaliが言ってshinyjsいるように、これを本当に簡単にしてください。次のようにすることができます：

library(shiny)
library(shinyjs)

ui <- shinyUI(
  fluidPage(
    useShinyjs(),
    sidebarPanel(
      actionButton('btn','Click me')
    ),
    mainPanel(
      verbatimTextOutput("nText")
    )
  )
)

server <- shinyServer(function(input,output,session){
  n <- 0
  makeReactiveBinding('n')

  observeEvent(input$btn, { 
    if(n < 5){
      info('Msg')
    } else if(n > 5){
      hide('btn')
    }
    n <<- n + 1 
  })

  output$nText <- renderText({
    n
  })

})

shinyApp(ui=ui,server=server)

Shinyjs を使用せずにボタンを非表示にする方法は次のとおりです。

library(shiny)

ui <- shinyUI(
  fluidPage(
    tags$head(
      tags$style(
        HTML('#num{display: none;}')
      )
    ),
    useShinyjs(),
    sidebarPanel(
      conditionalPanel(
        condition = "input.num < 5",
        actionButton('btn','Click me')
      ),
      numericInput('num','',0)
    ),
    mainPanel(
      verbatimTextOutput("nText")
    )
  )
)

server <- shinyServer(function(input,output,session){
  n <- 0
  makeReactiveBinding('n')

  observeEvent(input$btn, { 
    n <<- n + 1
    updateNumericInput(session,'num',value=n)
  })

  output$nText <- renderText({
    n
  })

})

shinyApp(ui=ui,server=server)

最後に、observeEvent を使用しない場合:

library(shiny)

ui <- shinyUI(
  fluidPage(
    tags$head(
      tags$style(
        HTML('#num{display: none;}')
      )
    ),
    useShinyjs(),
    sidebarPanel(
      conditionalPanel(
        condition = "input.num < 5",
        actionButton('btn','Click me')
      ),
      numericInput('num','',0)
    ),
    mainPanel(
      verbatimTextOutput("nText")
    )
  )
)

server <- shinyServer(function(input,output,session){
  n <- 0
  makeReactiveBinding('n')

  observe({
    input$btn
    isolate({
      n <<- n + 1
      updateNumericInput(session,'num',value=n)
    })
  })

  output$nText <- renderText({
    n
  })

})

shinyApp(ui=ui,server=server)
于 2015-11-08T13:21:37.813 に答える