Question

Hier mein Beispiel UI ist:

library(shiny) 
ui <- fluidPage(

    titlePanel("Carry Selector"), 
    sidebarPanel(
     fluidRow(
      column(6,numericInput(inputId = 'legNumbers',label = 'Number of Legs',min = 1,max=4,step=1,value=2)) 
     ), 
     tags$hr(style="border-color: black;"), 
     fluidRow(
      column(6,numericInput(inputId = 'weight1Input',label = 'Weight',min = 0,max=10,step=0.25,value=1)) 
     ) 
    ), 
    mainPanel(
    ) 
) 

Ich würde meinen zweiten Eingang möge genau meinen erstes zu imitieren, habe aber keine Ahnung, wie zu gehen, dass zu tun.

Natürlich ist mein Endziel, dass einige andere Eingaben auf die Auswahl mehrerer vorheriger reagieren, aber dies ist die verkürzte Version meines Problems.

Answer 1

es herausgefunden:

ui <- fluidPage(

    titlePanel("TEST"), 
    sidebarPanel(
     fluidRow(
      column(6,numericInput(inputId = 'legNumbers',label = 'Number of Legs',min = 1,max=4,step=1,value=2)) 
     ), 
     tags$hr(style="border-color: black;"), 
     uiOutput("ui_test") 
    ), 
    mainPanel(
    ) 
) 


server <- function(input,output){ 
    output$ui_test <- renderUI({ 
     fluidRow(
      column(6,numericInput(inputId = 'weight1Input',label = 'Weight',min = 0,max=10,step=0.25,value=input$legNumbers)) 
     ) 
    }) 
}