光沢のあるウィジェットのオーバーラップ

Question

光沢があるのであれば、「男性」と「女性」のみが「女性」に含まれていても、選択肢 "ベクトル。

ui <- fluidPage(
    selectInput("foo", label = "sex", choices = c("male","female"), selectize = T) 
) 

server <- function(input, output) {  
} 

shinyApp(ui = ui, server = server) 

追加のテキストフィールドと「新しいオプションを追加」ボタンを使ってこれを行うことができます（これは他の質問でも示唆されています）。ただし、元のテキストボックスに新しいオプションを入力できるようにしたいと考えています。

Answer 1

私はようやく、この以下の42の提案を管理：

library(shiny) 

ui <- fluidPage(
    fixedRow(
    column(4, 
      conditionalPanel(
      condition = "input.sex != 'other'", 
      selectInput("sex", label = "sex", choices = c("male","female","other"), selectize = T) 
      ) 
    ) 
), 
    fixedRow(
    column(4, 
      conditionalPanel(
      condition = "input.sex == 'other'", 
      textInput("sex_o", "write sex") 
      ) 
    ) 
) 
) 


server <- function(input, output) { 
} 

shinyApp(ui = ui, server = server)