Other files ignored by Codecov
man/interactive_text_explanations.Rd
has changed.
9 | 9 | #' @param window_title,title,place_holder,minimum_lentgh_error text to be displayed on the page |
|
10 | 10 | #' @param minimum_lentgh don't update display if text is shorter than this parameter |
|
11 | 11 | #' @param max_feature_to_select up limit to the number of words that can be selected |
|
12 | - | #' |
|
12 | + | #' @param shinytheme default is 'superhero'. |
|
13 | 13 | #' @rdname interactive_text_explanations |
|
14 | 14 | #' @importFrom shiny fluidPage textAreaInput shinyApp sliderInput mainPanel titlePanel hr need validate h1 h2 h3 h4 h5 h6 numericInput selectInput sidebarPanel renderPlot plotOutput |
|
15 | 15 | #' @importFrom stringi stri_count_words stri_replace_all_fixed |
49 | 49 | place_holder = "Put here the text to explain", |
|
50 | 50 | minimum_lentgh = 3, |
|
51 | 51 | minimum_lentgh_error = "Text provided is too short to be explained (>= 3).", |
|
52 | - | max_feature_to_select = 20) { |
|
52 | + | max_feature_to_select = 20, |
|
53 | + | shinytheme = 'superhero') { |
|
53 | 54 | assert_that(is.list(explainer)) |
|
54 | 55 | assert_that(is.string(window_title)) |
|
55 | 56 | assert_that(is.string(title)) |
67 | 68 | }) |
|
68 | 69 | ||
69 | 70 | ui <- fluidPage(title = window_title, |
|
70 | - | theme = shinytheme("superhero"), |
|
71 | + | theme = shinytheme(shinytheme), |
|
71 | 72 | titlePanel(title = title), |
|
72 | 73 | hr(), |
|
73 | 74 | sidebarPanel( |
1 |
comment: false |