Shiny - How to disable user input in numericInput used in uiOutput

Question

my code:-

library(shiny)

ui <- fluidPage(
    titlePanel("Find square of x"),
    numericInput("x","x:",5),
    uiOutput("y")
)

server <- function(input, output){
     output$y <- renderUI({
          numericInput("y","Square of x:",input$x * input$x)
     })
}

shinyApp(ui = ui, server = server)

In this app user can change the value of output "Square of x". Is there any way this can be prevented (means user input can be disabled in output).

Or anything like if a user modifies output "Square of x" than input "x" also get change accordingly.

Pork Chop · Accepted Answer · 2018-10-19 07:13:45Z

5

Yes, we can use shinyjs for that:

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  titlePanel("Find square of x"),
  numericInput("x","x:",5),
  numericInput("y","Square of x:",NULL)
)

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

  observeEvent(input$x,{
    updateNumericInput(session, "y", value = input$x * input$x)
    disable("y")
  })

}

shinyApp(ui = ui, server = server)

answered Oct 19, 2018 at 7:13

Pork Chop

29.5k5 gold badges69 silver badges82 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Shiny - How to disable user input in numericInput used in uiOutput

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related