sliderInputを光沢のある方法で変更すると、ユーザーは直接値を入力できますか？

Question

ui <- fluidPage(
    sliderInput("obs", "Number of observations:", 
       min = 0, max = 1000, value = 500 
), 
    plotOutput("distPlot") 
) 

# Server logic 
server <- function(input, output) { 
    output$distPlot <- renderPlot({ 
    hist(rnorm(input$obs)) 
    }) 
} 

# Complete app with UI and server components 
shinyApp(ui, server) 

私はsliderInputという単純なアプリを持っていますが、ユーザはこれを切り替えて観測回数を選択できます。このスライダー機能の上に、ユーザーが希望する数の観測値をボックスに入力し、その入力が結果のヒストグラムに反映されるように、これを変更する方法はありますか？私はスライダを持っている柔軟性を持ち、常にスライダに依存することなく正確な値を素早く入力できるようにしたい。

Answer 1

これは何か？

ui <- fluidPage(
      numericInput("obs_numeric", "Number of observations", min = 0, max = 500, value = 500), 
      sliderInput("obs", "Number of observations:", 
         min = 0, max = 1000, value = 500 
      ), 
      plotOutput("distPlot") 
    ) 

    # Server logic 
    server <- function(input, output, session) { 
      output$distPlot <- renderPlot({ 
        hist(rnorm(input$obs)) 
      }) 
      observeEvent(input$obs, { 
        updateNumericInput(session, "obs_numeric", value = input$obs) 
      }) 
      observeEvent(input$obs_numeric, { 
        updateSliderInput(session, "obs", 
             value = input$obs_numeric) 
      }) 
    } 

    # Complete app with UI and server components 
    shinyApp(ui, server)