I have been trying to read .csv file from my computer or online sources to incorporate in shinylive, but the dashboard does not show anything at all.
---
title: "Wine Data Analysis"
format:
html:
grid:
body-width: 1400px
filters:
- shinylive
---
```{r, results='hide', echo=FALSE, message=FALSE, warning=FALSE}
#| context: setup
data <- read.csv("https://archive.ics.uci.edu/ml/machine-learning-databases/wine-quality/winequality-red.csv")
```
```{shinylive-r}
#| standalone: true
#| viewerHeight: 600
library(shiny)
#Define UI
ui <- fluidPage(
tableOutput("table")
)
server <- function(input, output, session){
output$table <- renderTable({data[1:10,]})
}
shinyApp(ui, server)
```
Result:
