--- title: "Test_errorNorMOMO" output: flexdashboard::flex_dashboard: orientation: rows social: menu smooth_scroll: true runtime: shiny --- ```{r setup, include=FALSE} library(data.table) library(shiny) data <- data.frame(x=1:10,y=1:10) ``` ```{r, include=FALSE} getData <- reactive({ retval <- data[data$x==1,] }) ``` Data ===================================== ```{r, echo = F} renderTable(getData()) ```