#Import data
NBA


render_dt = function(data, editable = 'cell', server = TRUE) {
  renderDT(data, selection = 'none', server = server, editable = editable)
}

#Dashboard
body = dashboardBody(fluidRow(
  DTOutput("test")
  )

)

ui = dashboardPage(skin = "yellow", header, sidebar, body)

server = function(input, output, session) {

     output$test = render_dt(NBA, list(target = "row", disable = list (columns = c(2, 3, 4))))

     observeEvent(input$test_cell_edit, {
       NBA <<- editData(NBA, input$test_cell_edit, 'test')
     })
}

shinyApp(ui, server)