@@ -82,7 +82,7 @@ navTabsHelper <- function(files, prefix = "") {
82
82
lapply(files , function (file ) {
83
83
with(tags ,
84
84
li(class = if (tolower(file ) %in% c(" app.r" , " server.r" )) " active" else " " ,
85
- a(href = paste (" #" , gsub(" . " , " _" , file , fixed = TRUE ), " _code" , sep = " " ),
85
+ a(href = paste0 (" #" , gsub(" \\ .| \\ s+ " , " _" , file ), " _code" ),
86
86
" data-toggle" = " tab" , paste0(prefix , file )))
87
87
)
88
88
})
@@ -105,12 +105,11 @@ navTabsDropdown <- function(files) {
105
105
tabContentHelper <- function (files , path , language ) {
106
106
lapply(files , function (file ) {
107
107
with(tags ,
108
- div(class = paste(" tab-pane" ,
108
+ div(class = paste0(" tab-pane" ,
109
+ # TODO: what if the app filename is something else?
109
110
if (tolower(file ) %in% c(" app.r" , " server.r" )) " active"
110
- else " " ,
111
- sep = " " ),
112
- id = paste(gsub(" ." , " _" , file , fixed = TRUE ),
113
- " _code" , sep = " " ),
111
+ else " " ),
112
+ id = paste0(gsub(" \\ .|\\ s+" , " _" , file ), " _code" ),
114
113
pre(class = " shiny-code" ,
115
114
# we need to prevent the indentation of <code> ... </code>
116
115
HTML(format(tags $ code(
0 commit comments