闪亮的 renderUI 重置输入

Question

我正在构建一个闪亮的应用程序，该应用程序以用户对选择输入的选择为条件显示输入。如果用户从第一个选择输入中选择“Apples”，则会出现一个新的文本/数字输入，询问他进一步的问题。下面应用程序的架构有效，但每次调用 renderUI 时都会重置其他问题的输入。有人知道怎么解决吗？

此外，我如何强制多个条件输入彼此相邻放置而不是彼此下方？

ui <- fluidPage(
  selectInput(inputId = "Ort",label = "Ort",choices = c("Apple", "Banana"),multiple = T),
  uiOutput("Fruit"),
  uiOutput("Fruit2")
)

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

 output$Fruit <- renderUI({
   if("Apple" %in% input$Ort){
     how_many_apples = tagList()
     how_many_apples[[1]] <- textInput("howmanyapples","How many apples did you eat?")
     how_many_apples
   }
 })
output$Fruit2 <- renderUI({
   if("Banana" %in% input$Ort){
     how_many_bananas = tagList()
     how_many_bananas[[1]] <- textInput("howmanybananas","How many bananas did you eat?")
     how_many_bananas
   }
 })
}