1

我有一个数据输入表，用户将使用它从纸质数据表中输入野生动物捕获数据。纸张有许多相同的字段（例如年龄、体重、性别），但并非完全相同（例如，有些有胸围，有些没有）。表格也以不同的顺序设置，闪亮的表格必须与纸张上字段的确切顺序相匹配。

我目前有一系列uiOutput/renderUI对，根据用户从下拉列表中选择的种类显示输入。因为大多数物种都收集了相同的数据，并且这些数据都将进入同一张表，所以我想对所有物种使用一个输入（例如，input$Age而不是input$BearAgeand input$ElkAge）。但是，正如我上面所说，所有表格的顺序都不同，所以请不要建议我对所有物种都使用相同的表格。

我知道我可以使用shinyjs::show()并shinyjs::hide()更改输入是否可见，但是有没有办法根据用户输入、使用renderUI或其他方式更改现有对象的顺序？

它看起来像这样：

library(shiny)
ui <- fluidPage(
fluidRow(
  column(3, selectInput(inputId = 'species', label = 'Species', choices = c('Elk', 'Bear', 'Deer'))),
  column(3, numericInput(inputId = 'age', label = 'Age', value = NA)),
  column(3, numericInput(inputId = 'weight', label = 'Weight', value = NA))
)

server <- function(input, output, session) {
  if (input$species == 'bear') {
    *switch the order of age and weight*
   }
4

1 回答 1

2 
library(shiny)

ui <- fluidPage(
  fluidRow(
    column(3, selectInput(inputId = 'species', label = 'Species', 
      choices = c('Elk', 'Bear', 'Deer'))),
    uiOutput("inputs_UI")
  )
)

server <- function(input, output, session) {
  output$inputs_UI <- renderUI({
    if (input$species == 'Bear') {
      tagList(
        column(3, numericInput(inputId = 'age', label = 'Age', value = NA)),
        column(3, numericInput(inputId = 'weight', label = 'Weight', value = NA))
      )
    } else {
      tagList(
        column(3, numericInput(inputId = 'weight', label = 'Weight', value = NA)),
        column(3, numericInput(inputId = 'age', label = 'Age', value = NA))
      )
    }
  })
   
}   

shinyApp(ui, server)
于 2021-09-21T22:30:53.150 回答