Question

以下是我的示例用户界面：

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

在RShiny中反应性地修改UI输入

1 个答案: