rhandsontable

dynamically add rows to rhandsontable in shiny and R

假如想象 提交于 2021-02-18 15:57:26
问题 I'm trying to create an app which ultimately needs the mean and sd of a protein's concentration on the log scale . Since the log-scale values are almost never reported, I've found references which allow me to approximate log-scale using commonly available data (the mean + sd, median + range, median + IQR, 5 point summary, etc.). Users will enter the data using a table currently implemented using rhandsontable until I've added enough error handling to accommodate CSV files, and I want to limit

dynamically add rows to rhandsontable in shiny and R

白昼怎懂夜的黑 提交于 2021-02-18 15:57:10
问题 I'm trying to create an app which ultimately needs the mean and sd of a protein's concentration on the log scale . Since the log-scale values are almost never reported, I've found references which allow me to approximate log-scale using commonly available data (the mean + sd, median + range, median + IQR, 5 point summary, etc.). Users will enter the data using a table currently implemented using rhandsontable until I've added enough error handling to accommodate CSV files, and I want to limit

How to use the 'afterColumnResize' event with 'rhandsontable'?

♀尐吖头ヾ 提交于 2021-01-28 11:26:56
问题 The JavaScript library Handsontable has an event afterColumnResize, triggered when a column is manually resized. How to use it with the 'rhandsontable' package in Shiny? 回答1: Here is how: library(shiny) library(rhandsontable) library(htmlwidgets) jsCode <- c( "function(el, x) {", " Handsontable.hooks.add('afterColumnResize', function(index, size){", " Shiny.setInputValue('newsize', {index: index+1, size: size});", " });", "}" ) ui <- fluidPage( rHandsontableOutput("dataTable"), br(),

Change cell background of rHandsontable with afterChange event on client side

戏子无情 提交于 2020-12-30 01:45:15
问题 I'd like to change the background color of a handsontable cell after it's been edited by the user on the client side. The handsontable is defined through a Shiny application; so this is really a question about how to define event hooks in rHandsontable in the Shiny application. The general use case that I'm trying to accomplish is: users edit cell data; the background color change to indicate that it's been changed and is pending saving to a database; the change is passed back to Shiny's

Change cell background of rHandsontable with afterChange event on client side

让人想犯罪 __ 提交于 2020-12-30 01:38:58
问题 I'd like to change the background color of a handsontable cell after it's been edited by the user on the client side. The handsontable is defined through a Shiny application; so this is really a question about how to define event hooks in rHandsontable in the Shiny application. The general use case that I'm trying to accomplish is: users edit cell data; the background color change to indicate that it's been changed and is pending saving to a database; the change is passed back to Shiny's

Change cell background of rHandsontable with afterChange event on client side

倾然丶 夕夏残阳落幕 提交于 2020-12-30 01:36:49
问题 I'd like to change the background color of a handsontable cell after it's been edited by the user on the client side. The handsontable is defined through a Shiny application; so this is really a question about how to define event hooks in rHandsontable in the Shiny application. The general use case that I'm trying to accomplish is: users edit cell data; the background color change to indicate that it's been changed and is pending saving to a database; the change is passed back to Shiny's

How to download Rhandsontable output into .xlsx and .pdf?

邮差的信 提交于 2020-07-18 08:41:25
问题 I would like to download rhandsontable output object from an R Shiny app into .xlsx and .pdf format. Does anyone have any idea how to do this? For example, I want to download the tables in the results tab in the app below (the codes are copied from my other question earlier): library(shiny) library(rhandsontable) ui <- navbarPage("App", tabPanel("Input", numericInput('num_of_table', "Number of sub tabs: ", value = 1, min = 1, max = 10), uiOutput("input")), tabPanel("Results", uiOutput(