使用selectInput设置框标题？

Question

我想使用selectInput在框中设置标题。例如，我希望默认标题为：名称2设置

现在，我可以将标题设为$mp3 = glob($directory . '*.mp3'); //print each file name foreach($mp3 as $mp3) { echo ' <tr> <td class="one"><!--number goes here --></td> <td class="one">'. str_replace('(BDalbum.com).mp3','',basename($mp3)) .'</td> <td class="two">'. $_GET['s'] .'</td> <td class="three">'. $_GET['a'] .'</td> <td class="two">'. $_GET['a'] .'</td> </tr> '; } 。有没有办法删除[1] "Name 2 settings"和引号？

谢谢！

这是我的示例应用：

[1]

Answer 1

只需将renderPrint替换为renderText：

server <- function(input, output) {
    output$Design <- renderText({
        paste(input$Design, 'settings')
    })
}