r基于选择的用户输入

我知道如何在UI上添加文本输入、单选按钮或日期输入，我想做的是询问用户是否要输入文本或日期范围？根据用户选择显示文本输入或日期输入。不知道怎么做

       Pseudo Code

       1) Please choose if you want to enter text or date range.
            Radio Button 1 - Text Input
            Radio Button 2 - Date Range

       2a) If the user chooses Radio Button 1, then Text Input should be displayed on the main panel, option to enter two dates (From & to) should not be displayed

       2b) If the user chooses Ratio Button 2, then the option to enter two dates (From & to) should be displayed on the Main panel and text input should not be displayed.

---

不知道怎么做。需要一些指针。

我觉得这里很慷慨，通常您应该提供您尝试的代码，但这里有一个如何使用条件输入的工作示例

library(shiny)

runApp(
    list(
        ui = pageWithSidebar(
            headerPanel("Option Input via Radio Buttons"),
            sidebarPanel(
                radioButtons("radio", label = h3("Radio buttons"),
                             choices = list("Date" = "date", "Text" = "text"), 
                             selected = 1),
                uiOutput("textORdate")
                ),
            mainPanel()
            ),
        server = function(input, output){
            output$textORdate <- renderUI({
                validate(
                    need(!is.null(input$radio), "please select a input type")
                    )
                if(input$radio == "text"){
                    textInput("mytext", "Text Input", "please enter text")
                }else{
                    dateRangeInput("daterange", "Date range:",
                                   start = "2012-01-01",
                                   end   = "2015-03-06")
                }
            })
        }))

库（闪亮）
runApp(
名单(
ui=页面带边框(
headerPanel（“通过单选按钮输入选项”），
侧栏面板(
单选按钮（“单选”，标签=h3（“单选按钮”），
选项=列表（“日期”=“日期”，“文本”=“文本”），
选定值=1），
uiOutput（“textORdate”）
),
主面板（）
),
服务器=功能（输入、输出）{
输出$textORdate我正在添加一些操作按钮和其他功能，我将在这些功能正常工作后立即更新此部分：）