inst/shinyPdM/server.R

In svcuong/shinyPdM: R package for predictive maintenance in industry 4.0 concept

# Define server logic
server <- function(input, output) {
  load("~/GitHub/PdM/data/train_data.rda")
  output$mytable = DT::renderDataTable({
    train_data
  }, options = list(scrollX = TRUE),
  caption = "You imported the following data set")
}