在flexdashboard中使用rhandsontable

Question

我正在嘗試使用rhandsontable來記錄用戶輸入並將其傳遞給Shiny服務器端以進一步處理。 具體而言，對於下面的代碼，我想添加一列來記錄用戶輸入並顯示flexdashboard valueBox中colum的總和。 但不知何故，reativeValue不會出現反應。無論我更改第一列Vol_Percent，valueBox都不會改變。任何建議？謝謝！

--- 
title: "Test" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: rows 
    vertical_layout: scroll 
runtime: shiny 
--- 

```{r global, include=FALSE} 
packages <- c("flexdashboard", "readr", "dplyr", "rhandsontable", "shiny") 
for (p in packages) { 
    library(p, character.only = TRUE, quietly = TRUE) 
} 
``` 

Column {.sidebar} 
----------------------------------------------------------------------- 
### Input and Control 
```{r input_panel} 
# Input file 
fileInput(inputId = "file_property_input", label = "Upload Properties") 

``` 

Row 
----------------------------------------------------------------------- 
### Properties 
```{r property_table} 
# Load input data file 
values <- reactiveValues() 

df_input <- reactive({ 
    validate(need(input$file_property_input, message = FALSE)) 
    input_file <- input$file_property_input 
    return(read_csv(input_file$datapath)) 
}) 

data <- reactive({ 
    if(is.null(values[["data"]])) { 
    data <- cbind(Vol_Percent = rep(0, nrow(df_input())), data.frame(df_input())) 
    } else { 
    data <- values[["data"]] 
    } 
    values[["data"]] <- data 
    return(data) 
}) 

renderRHandsontable({ 
    rhandsontable(data(), search = TRUE, readOnly = TRUE, height = 400) %>% 
    hot_col("Vol_Percent", readOnly = FALSE) %>% 
    hot_cols(fixedColumnsLeft = 1) %>% 
    hot_context_menu(allowRowEdit = FALSE, allowColEdit = FALSE, 
    customOpts = list(
     search = list(name = "Search", 
        callback = htmlwidgets::JS(
         "function (key, options) { 
         var srch = prompt('Search criteria'); 

         this.search.query(srch); 
         this.render(); 
         }")))) 
}) 

``` 

Row 
----------------------------------------------------------------------- 
### Input Validility 
```{r input_valid} 
renderValueBox({ 
    info <- "Input Validated" 
    valueBox(value = info, icon = ifelse(info == "Input Validated", "fa-check", "fa-times"), color = ifelse(info == "Input Validated", "success", "danger")) 
}) 
``` 

### Total Percentage 
```{r information} 
renderValueBox({ 
    rate <- sum(values[["data"]]$Vol_Percent) 
    valueBox(value = rate, icon = ifelse(rate == 100, "fa-check", "fa-times"), color = ifelse(rate == 100, "success", "warning")) 
}) 

``` 

Answer 1

我想通了基於貼在這裏 https://github.com/jrowen/rhandsontable/blob/master/inst/examples/rhandsontable_portfolio/server.R

這裏的例子是更新的代碼

--- 
title: "Test" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: rows 
    vertical_layout: scroll 
runtime: shiny 
--- 

```{r global, include=FALSE} 
packages <- c("flexdashboard", "readr", "dplyr", "rhandsontable", "shiny") 
for (p in packages) { 
    library(p, character.only = TRUE, quietly = TRUE) 
} 
``` 

Column {.sidebar} 
----------------------------------------------------------------------- 
### Input and Control 
```{r input_panel} 
# Input file 
fileInput(inputId = "file_property_input", label = "Upload Properties") 

``` 

Row 
----------------------------------------------------------------------- 
### Properties 
```{r property_table} 
# Load input data file 
values <- reactiveValues(hot = NULL) 

sum_percentage <- reactive({ 
    return(sum(values[["hot"]]$Vol_Percent)) 
}) 

df_input <- reactive({ 
    validate(need(input$file_property_input, message = FALSE)) 
    input_file <- input$file_property_input 
    return(read_csv(input_file$datapath)) 
}) 

output$hot <- renderRHandsontable({ 
    data <- NULL 
    if (is.null(values[["hot"]])) { 
    values[["hot"]] <- cbind(Vol_Percent = rep(0, nrow(df_input())), data.frame(df_input())) 
    } 
    if (!is.null(input$hot)) { 
    data <- hot_to_r(input$hot) 
    values[["hot"]] <- data 
    } else if (!is.null(values[["hot"]])) { 
    data <- values[["hot"]] 
    } 
    if (!is.null(data)) { 
    rhandsontable(data, search = TRUE, readOnly = TRUE, height = 400) %>% 
    hot_col("Vol_Percent", readOnly = FALSE) %>% 
    hot_cols(fixedColumnsLeft = 1) %>% 
    hot_context_menu(allowRowEdit = FALSE, allowColEdit = FALSE, 
    customOpts = list(
     search = list(name = "Search", 
        callback = htmlwidgets::JS(
         "function (key, options) { 
         var srch = prompt('Search criteria'); 
         this.search.query(srch); 
         this.render(); 
         }")))) 
    } 
}) 

rHandsontableOutput("hot") 

``` 

Row 
----------------------------------------------------------------------- 
### Input Validility 
```{r input_valid} 
renderValueBox({ 
    info <- "Input Validated" 
    valueBox(value = info, icon = ifelse(info == "Input Validated", "fa-check", "fa-times"), color = ifelse(info == "Input Validated", "success", "danger")) 
}) 
``` 

### Total Percentage 
```{r information} 
renderValueBox({ 
    rate <- ifelse(!is.null(sum_percentage()), sum_percentage(), 0) 
    valueBox(value = rate, icon = ifelse(rate == 100, "fa-check", "fa-times"), color = ifelse(rate == 100, "success", "warning")) 
}) 

```