在文本中使用readlines（prompt=）

我有一个使用

readlines（prompt=）

函数获取输入的代码。您能告诉我Shiny中的哪个输入函数足以使此代码适应Shiny应用程序吗

我需要一个交互式函数，我不能使用带有

selectInput（）

的简单输入，因为我有很多

读行（prompt=）

语句

类似于这个问题：

---

也许您可以使用

textArea

来实现此目的。下面的工作示例，希望对您有所帮助

---

---

库（闪亮）
uiFlorian的答案很好用，我绝对推荐！但如果您热衷于使用
提示
进行输入，我将添加另一个解决方案，使用
javaScript
：

当用户按下
操作按钮
并将其存储在输入变量中时，此按钮将显示
提示
。（不一定非得在按下按钮之后）

库（闪亮）
用户界面
library(shiny)

ui <- fluidPage(
  tags$textarea(id="text", rows=4, cols=40),
  htmlOutput('val')
)

server <- function(input,output)
{
  output$val <- renderText({
    text = gsub('\n','<br>',input$text)
    text
    })
}

shinyApp(ui,server)

library(shiny)

ui <- fluidPage(
  tags$head(tags$script("
    $(document).on('shiny:inputchanged', function(event) {
      if (event.name === 'go') {
        var text = prompt('Write me something nice:');
        Shiny.onInputChange('mytext', text);
      }
    });"
  )),
  actionButton("go", "Click for prompt"),
  textOutput("txt")
)

server <- function(input, output, session) {
  output$txt <- renderText( {
    input$mytext
  })
}

shinyApp(ui, server)