Highlight text in Shiny with markjs.
You can install the package from Github with:
# install.packages("remotes")
remotes::install_github("JohnCoene/marker")
Run the app above with marker_demo().
🚨 Remember to always include useMarker at the top of your shiny UI.
library(shiny)
library(marker)
data(lorem, package = "marker")
ui <- fluidPage(
useMarker(), # include dependencies
p(id = "text-to-mark", lorem),
textInput("text", "text to highlight")
)
server <- function(input, output){
# initialise the marker to point at our text
marker <- marker$new("#text-to-mark")
observeEvent(input$text, {
marker$
unmark()$ # unmark all before we mark
mark(input$text) # highlight text
})
}
shinyApp(ui, server)Plenty of options can be found in the official documentation.
library(shiny)
library(marker)
data(lorem, package = "marker")
ui <- fluidPage(
useMarker(),
h2("Test app"),
tags$head(
tags$style(
".red{background-color:#FFB8C3;}.blue{background-color:#6ECFEA;}"
)
),
p(id = "text-to-mark",lorem),
textInput("text", "text to highlight"),
textInput("text2", "text to highlight")
)
server <- function(input, output){
marker <- marker$new("#text-to-mark")
observeEvent(input$text, {
marker$
unmark(className = "red")$ # unmark red class
mark(input$text, className = "red") # add red class
})
observeEvent(input$text2, {
marker$
unmark(className = "blue")$ # unmark blue class
mark(input$text2, className = "blue") # add blue class
})
}
shinyApp(ui, server)