@@ -40,8 +40,13 @@ list_to_li <- function(list, class = NULL){
40
40
# '
41
41
# ' @param list an R list
42
42
# ' @param class a class for the paragraph tags
43
+ # '
44
+ # ' @return An HTML tag
45
+ # ' @noRd
46
+ # '
43
47
# ' @examples
44
48
# ' list_to_p(c("This is the first paragraph", "this is the second paragraph"))
49
+ # '
45
50
# ' @importFrom shiny tags tagAppendAttributes tagList
46
51
# '
47
52
list_to_p <- function (list , class = NULL ){
@@ -208,7 +213,7 @@ with_red_star <- function(text) {
208
213
HTML(
209
214
paste0(
210
215
text ,
211
- htmltools :: tags $ span(
216
+ shiny :: tags $ span(
212
217
style = " color:red" , " *"
213
218
)
214
219
)
@@ -348,26 +353,13 @@ make_action_button <- function(tag, inputId = NULL) {
348
353
# handle id
349
354
if (! is.null(inputId )) {
350
355
if (! is.null(tag $ attribs $ id )) {
351
- if (requireNamespace(" cli" )){
352
- cli :: cat_bullet(
353
- bullet = " bullet" ,
354
- bullet_col = " red" ,
355
- paste(
356
- " tag already has an id. Please use input$" ,
357
- tag $ attribs $ id ,
358
- " to access it from the server side. inputId will be ignored."
359
- )
356
+ warning(
357
+ paste(
358
+ " tag already has an id. Please use input$" ,
359
+ tag $ attribs $ id ,
360
+ " to access it from the server side. inputId will be ignored."
360
361
)
361
- } else {
362
- warning(
363
- paste(
364
- " tag already has an id. Please use input$" ,
365
- tag $ attribs $ id ,
366
- " to access it from the server side. inputId will be ignored."
367
- )
368
- )
369
- }
370
-
362
+ )
371
363
} else {
372
364
tag $ attribs $ id <- inputId
373
365
}
@@ -400,7 +392,7 @@ make_action_button <- function(tag, inputId = NULL) {
400
392
# ' #'
401
393
# ' #' @importFrom rmarkdown render
402
394
# ' #' @importFrom markdown markdownToHTML
403
- # ' #' @importFrom htmltools HTML
395
+ # ' #' @importFrom shiny HTML
404
396
# ' includeRMarkdown <- function(path){
405
397
# '
406
398
# ' md <- tempfile(fileext = '.md')
0 commit comments