Hi all,
I have a simple app (I tried myself but not getting so need your help), where in I can select values from drop downs Col1 and Col2. Then post clicking the action button, the data frame should be populated. For example, when I select A and 1 and click action button, I should get
Then I select B and 2, now the these should get updated to the previous table
The main problem is (which I did not try) is, Can we have the option to delete the any previous entered row. Say I have to select first row. Is there any way to achieve this?
Below is the code
---
title: "Untitled"
runtime: shiny
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(rhandsontable)
```
Company Daily Stocks
=================
Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
selectInput("one","Col1",choices = c("","A","B","C","D"))
selectInput("two","Col2",choices = c("",1,2,3,4,5))
actionButton("action","Get Dataframe")
```
Column {data-width=650}
-----------------------------------------------------------------------
### Chart A
```{r}
rHandsontableOutput("table")
table <- observeEvent(input$action,{
daf <- data.frame(Col1 = input$one,Col2 = input$two)
rhandsontable(daf)
})
output$table <- renderRHandsontable({
table()
})
```