R Shiny application designed to navigate through multiple sections within a single page

[nivethajagadeeswarann]

Below code works in IDE but not when i deploy to posit connect. Any idea ?

library(shiny) library(DT)

Sample data

data <- data.frame( ID = 1:20, Name = letters[1:20], Section = paste0("section", 1:20) )

Define UI

ui <- fluidPage( titlePanel("DataTable with Section Links"), mainPanel( DTOutput("mytable") ), fluidRow( column(12, tags$h2("Sections"), lapply(1:20, function(i) { tags$div(id = paste0("section", i), paste("Section", i, "content")) }) ) ) )

Define server logic

server <- function(input, output) { output$mytable <- renderDT({ datatable(data, options = list( columnDefs = list( list( targets = 3, render = JS( 'function(data, type, row, meta) {', 'return "<a href=\'#" + data + "\'>" + data + "";', '}' ) ) ) ) ) }) }

Run the application

shinyApp(ui = ui, server = server)