Question

我有一个非常简单的闪亮应用程序。用户输入一个短语，然后应用程序提取最后一个单词并打印出来。

print(remove_text_between_parens('stuff (inside (nested) brackets) (and (some(are)) here) here'))
# => stuff   here

如何更改textOutput的格式？例如，它应该看起来像一个按钮。

Answer 1

以下是使用renderUI的示例。如果您只想要一些彩色背景，也可以尝试CSS。 CSS也可以使它看起来像一个按钮，但它有点棘手。

require(shiny)
require(stringi)        
require(stringr)       

server <- function(input, output) {
    tokens <- reactive({
        token <- tolower(input$sentence)
        token <- gsub("[^[:alnum:]['-]", " ", token)
        token <- gsub("^\\s+|\\s+$", "", token)
    })

    output$lastOne <- renderUI({
        tags$button(word(tokens(), -1))
    })

}

ui <- navbarPage("Filter",
                 tabPanel("The App",
                          column(8, offset = 4,
                                 textInput(inputId = "sentence", label = "Enter your phrase"),
                                 submitButton("Filter")
                          ),

                          fluidRow(
                              uiOutput("lastOne")
                          )
                 ),
                 tabPanel("How to use")
)


shinyApp(ui = ui, server = server)

在Shiny中更改textOutput的格式

1 个答案: