在RShiny

Question

被動修改UI輸入這是我的例子UI：

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(
    ) 
) 

我想我的第二個輸入準確模仿我的第一個，但不知道如何去這樣做。

當然，我的最終目標是讓其他一些輸入反應選擇多個以前的輸入，但這是我的問題的精簡版。

Answer 1

想通了：

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)) 
     ) 
    }) 
}