R/mod_op_data_input_test.R

In ratral/gpvapp: Curves calculation for plunger valves

#' Test of the op_data_input_App
#'
#' @return shiny app
#' @export
#' @import shiny
#'

op_data_input_test <- function() {
  # UI
  ui <- fluidPage(
    op_data_input_ui("operation_datatable")
  )
  # SERVER
  server <- function(input, output, session) {
    v <- reactiveValues(data = {initialize_df(6)})
    op_data_input_server("operation_datatable", op_data = v)
  }
  shinyApp(ui, server)
}