R/server.R

In gaspardcc/PMMMF:

#' Server at shinyStat
#'
#' Plays the viewModel role.
#'
#' @author elh


function(input, output, session)
{
  reactiveData <- reactive(
    {

    }
  )

  output$market_data <- DT::renderDataTable(DT::datatable(reactiveData()))

  output$pathChart <- plotly::renderPlotly(render_dataframe(reactiveData()))

  output$basicStat <- DT::renderDataTable(
    {
      DT::datatable(
        t(
          rbind(
            Min = sapply(df, min),
            Mean = sapply(df, mean),
            Median = sapply(df, median),
            Max = sapply(df, max)
          )
        )
      )
    }
  )

  observeEvent(input$select_data_set,
               {

               }
  )
}