从rhandsontable对象中检索值（R，R有光泽）

Question

我使用（awesome）包rhandsontable，稍后将包含在 R 闪亮网页中。用户可以在某些地方单击，我想知道如何检索单击哪些行的信息。 这是一个例子，（在 R 终端中复制和粘贴）：

library(rhandsontable)

## Create the dataset
min = c(1,seq(2,34,by=2))
kmh = c(0,seq(7,23,by=1))
mph = round( kmh / 1.609344, digits=0 )
stop.speed = rep(FALSE, length(min))    
DF = data.frame(min, kmh, mph, stop.speed, stringsAsFactors = FALSE)

#plot the table
r = rhandsontable(DF, useTypes = TRUE)

我考虑将其转换为 R 对象：

hot_to_r(r)

Error in (function (data, changes, params, ...)  : 
argument "params" is missing, with no default

Answer 1

查看shinysky包。请注意，我还会显示包含已实施更改的表格，以便您检查工作

rm(list = ls())
library(shiny)
library(shinysky)

## Create the dataset
min = c(1,seq(2,34,by=2))
kmh = c(0,seq(7,23,by=1))
mph = round( kmh / 1.609344, digits=0 )
stop.speed = rep(FALSE, length(min))    
DF = data.frame(min, kmh, mph, stop.speed, stringsAsFactors = FALSE)

server <- shinyServer(function(input, output, session) {

  # Initiate your table
  previous <- reactive({DF})

  MyChanges <- reactive({
    if(is.null(input$hotable1)){return(previous())}
    else if(!identical(previous(),input$hotable1)){
      # hot.to.df function will convert your updated table into the dataframe
      as.data.frame(hot.to.df(input$hotable1))
    }
  })
  output$hotable1 <- renderHotable({MyChanges()}, readOnly = F)
  # You can see the changes you made
  output$tbl = DT::renderDataTable(MyChanges())
})

ui <- basicPage(mainPanel(column(6,hotable("hotable1")),column(6,DT::dataTableOutput('tbl'))))
shinyApp(ui, server)

Answer 2

除了shinysky之外，另一个解决方案是回复讲话：

server.R

DF = hot_to_r(input$table)

在ui.R中，表格已被使用：

rHandsontableOutput("table")

DF可以用作任何R数据帧

Answer 3

您可以按照以下步骤在r 3.3.1中安装shinysky软件包： -

install.packages("devtools") 
devtools::install_github("AnalytixWare/ShinySky")

Answer 4

进入闪亮的应用程序后，您可以使用：

input$table_select$select$r # access the row number
input$table_select$select$c # access the column number
input$table_select$data[[input$table_select$select$r]][[input$table_select$select$c]] # access the data in a cell

你可以编写一个小函数来将行和列号“转换”到dataframe / matrix / etc中的一个位置，或者只是访问上面的值。

希望这有帮助。

Answer 5

该问题已有4年历史了，但仍然与rhandsontable软件包用户有关。而且，Lyx上面提供的解决方案不再起作用。以下是解决该问题的简便方法。

每个rhandsontable对象都是一个深层嵌套的列表。它的元素之一是data元素，它本身嵌套在x元素下面。但是，数据为json格式，但是可以使用data.frame包中的fromJSON()函数将其轻松转换为jsonlite。

library(rhandsontable)
library(jsonlite)

hands_on_table <- rhandsontable(mtcars)
data_frame <- fromJSON(hands_on_table$x$data)
head(data_frame)

   mpg cyl disp  hp drat    wt  qsec vs am gear carb
1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1