我正在创建 Rshiny 应用程序，我不确定如何使我的数据表可编辑 Rshiny 中的行和列。当我尝试使用renderDT=(editable = TRUE)DT 包时，但它不起作用。有人可以告诉我如何在 R闪亮中做到这一点吗？
如果我错了，那么我应该在哪里设置editable =TRUE以使数据表可编辑
CSV
ID Type Range
21 A1 B1 100
22 C1 D1 200
应用程序R
library(shiny)
library(reshape2)
library(DT)
library(tibble)
###function for deleting the rows
splitColumn <- function(data, column_name) {
newColNames <- c("Unmerged_type1", "Unmerged_type2")
newCols <- colsplit(data[[column_name]], " ", newColNames)
after_merge <- cbind(data, newCols)
after_merge[[column_name]] <- NULL
after_merge
}
###_______________________________________________
### function for inserting a new column
fillvalues <- function(data, values, columName){
df_fill <- data
vec <- strsplit(values, …我有一个 CSVDTOutput("table1")文件，其中包含几列及其值，或者如何dput()在 R闪亮中使用它来完成，我想将它们添加到底部列作为标题和值。
我应该如何将它引入 R闪亮？有人可以帮助我吗？
CSV 数据
ID Type Range
21 A1 100
22 C1 200
23 E1 300
ID Range Type Period
24 500 A2 2005
26 100 G2 2008
28 300 C3 2010
预期输出
ID Type Range ID Range Type Period
21 A1 100 24 500 A2 2005
22 C1 200 26 100 G2 2008
23 E1 300 28 150 C3 2010
应用程序R
library(shiny)
library(reshape2)
library(DT)
library(tibble)
###function for deleting the rows
splitColumn <- …下面的代码读取 CSV 文件并在主面板中显示数据表。自动检测“要搜索的列”中的字段。我创建了一个名为“Replace”的字段和一个名为“by”的字段，可用于替换列单元格中的某些值。
我想在替换值的地方以任何颜色突出显示该单元格，最好是橙色。
有人可以解释一下我如何在 R闪亮中做到这一点吗？
CSV
ID Type Category values
21 A1 B1 030,066,008,030,066,008
22 C1 D1 020,030,075,080,095,100
23 E1 F1 030,085,095,060,201,030
预期输出：
如果我将“值”列中的 030 更改为 100，我希望该单元格（在“值”列和第 2 行中）被着色。
代码
library(shiny)
library(DT)
library(stringr)
library(dplyr)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose CSV File", accept = ".csv"),
checkboxInput("header", "Header", TRUE),
selectInput("col", "Column to search:", NULL),
textInput("old", "Replace:"),
textInput("new", "By:"),
actionButton("replace", "Replace!"),
),
mainPanel(
DTOutput("table1")
)
)
)
server <- function(input, output, session) {
my_data <- reactiveVal(NULL)
observeEvent(input$file1, {
file <- …