- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想编辑表格并将更改保存到下面的示例中。这是我到目前为止所拥有的。
library(shiny)
library(DT)
Admit<-c("Admitted","Rejected","Admitted", "Rejected", "Admitted", "Rejected", "Admitted",
"Rejected","Admitted", "Rejected", "Admitted","Rejected","Admitted", "Rejected","Admitted","Rejected", "Admitted", "Rejected",
"Admitted","Rejected", "Admitted" ,"Rejected","Admitted", "Rejected")
Gender<-c("Male","Male","Female","Female", "Male", "Male", "Female", "Female", "Male","Male","Female","Female",
"Male","Male","Female","Female","Male", "Male", "Female", "Female","Male","Male","Female","Female")
Dept<-c( "A","A", "A", "A", "B", "B", "B", "B", "C", "C", "C", "C", "D", "D", "D", "D", "E", "E", "E", "E", "F", "F", "F", "F")
Freq<-c("512", "313", "89", "19", "353", "207", "17", "8", "120", "205", "202", "391", "138", "279", "131", "244", "53", "138",
"94", "299", "22", "351", "24", "317")
banking.df<-data.frame(Admit,Gender,Dept, Freq)
# Define UI ----
ui <- fluidPage(
titlePanel("UC Berkley Admissions"),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Sample Bank", DT::dataTableOutput("banking.df"),
br(),
actionButton("saveBtn","Save")))))
# Define server logic ----
server <- function(input, output) {
d1 = banking.df
d1$Date = Sys.time() + seq_len(nrow(d1))
output$banking.df=render_dt(d1,'cell')
#edit a single cell
proxy5=dataTableProxy('banking.df')
observeEvent(input$banking.df_cell_edit,{
info=input$banking.df_cell_edit
str(info)
d1<<-editData(d1,info)
replaceData(proxy5,d1,resetPaging = FALSE)
})
#observeEvent(input$saveBtn,write.csv(input$banking.df),
# file="NewData.csv",row.names=FALSE)
}
# Run the app ----
shinyApp(ui = ui, server = server)
最佳答案
我尝试了您的代码并修改了一些元素。有几点需要明确:
library(shiny)
library(DT)
fluidPage(
titlePanel("UC Berkley Admissions"),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Sample Bank",
DT::dataTableOutput("banking.df_data"),
br(),
actionButton("viewBtn","View"),
br(),
actionButton("saveBtn","Save"),
br(),
DT::dataTableOutput("updated.df")
))))
Admit<-c("Admitted","Rejected","Admitted", "Rejected", "Admitted", "Rejected", "Admitted",
"Rejected","Admitted", "Rejected", "Admitted","Rejected","Admitted", "Rejected","Admitted","Rejected", "Admitted", "Rejected",
"Admitted","Rejected", "Admitted" ,"Rejected","Admitted", "Rejected")
Gender<-c("Male","Male","Female","Female", "Male", "Male", "Female", "Female", "Male","Male","Female","Female",
"Male","Male","Female","Female","Male", "Male", "Female", "Female","Male","Male","Female","Female")
Dept<-c( "A","A", "A", "A", "B", "B", "B", "B", "C", "C", "C", "C", "D", "D", "D", "D", "E", "E", "E", "E", "F", "F", "F", "F")
Freq<-c("512", "313", "89", "19", "353", "207", "17", "8", "120", "205", "202", "391", "138", "279", "131", "244", "53", "138",
"94", "299", "22", "351", "24", "317")
banking.df<-data.frame(Admit,Gender,Dept, Freq,stringsAsFactors = FALSE)
d1 = banking.df
d1$Date = Sys.time() + seq_len(nrow(d1))
function(input, output) {
output$banking.df_data<-renderDataTable(
d1,selection = 'none', editable = TRUE,
rownames = TRUE,
extensions = 'Buttons',
options = list(
paging = TRUE,
searching = TRUE,
fixedColumns = TRUE,
autoWidth = TRUE,
ordering = TRUE,
dom = 'Bfrtip',
buttons = c('csv', 'excel')
),
class = "display"
)
observeEvent(input$banking.df_data_cell_edit, {
d1[input$banking.df_data_cell_edit$row,input$banking.df_data_cell_edit$col] <<- input$banking.df_data_cell_edit$value
})
view_fun<-eventReactive(input$viewBtn,{
if(is.null(input$saveBtn)||input$saveBtn==0)
{
returnValue()
}
else
{
DT::datatable(d1,selection = 'none')
}
})
observeEvent(input$saveBtn,{
write.csv(d1,'test.csv')
})
output$updated.df<-renderDataTable({
view_fun()
}
)
}
关于r - 如何使用 DT 包编辑和保存对 Shiny 数据表所做的更改,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58812512/
我有一个类为.dt-horizonal 的描述列表,其中我确保dt 内容不会被以下this 截断|发布并增加宽度。它工作正常,但是当有一个空的 dt 时它不起作用,因此下一个 dd(Canada)
当我运行以下代码时,我只得到 1 或 2 行数据。如何增加显示的行数?谢谢! --- title: " File Analysis" output: html_docu
我使用标签 DL-DT-DD 在网站上列出商店信息。该信息将由服务器生成并放置。 Shop Name US Master Autos Toll Free Not Available Fax (30
更新 我正在尝试使用 shiny 和 DT 制作应用,similar to the accepted answer from Shree here .你,我想添加以下内容: 扩展 Shree 的解决方
我有这个标记: Lot Size 324 sq. meters Baths 2 Full Description
有没有可能得到这个样子 来自这段代码(使用 CSS?) Latitude 50.0 Longitude 100.0 h (metres) 0.000 Vφ (mm/y) -6.4 Vλ (mm/y)
我正在做一些计算和行操作,并意识到对于某些任务,例如数学运算,它们都有效,例如 d['c3'] = d.c1 / d. c2 d['c3'] = d['c1'] / d['c2'] 我想知道是否在某些
我可以使用从任意模块转储类型 dt modulename!type 在某些情况下,我看到例如 dt nt!_TEB (并且它有效)尽管该模块名为 ntdll: 0:001> lm m nt start
我正在尝试制作一个交互式表格,总结在多项研究中测试的结果的最高结果,我还希望用户通过子行访问更详细的结果。主表中仅显示具有最小 p 值的“顶级”模型。 现在我将相关结果分为两个数据框:1. 仅顶部结果
Shiny 似乎改变了数据表的实现。这是什么原因? 除非我遗漏了什么,否则新的默认值看起来像是倒退了一步。一方面,他们缺少表格底部的特定于列的搜索框。有没有办法替换该功能? 最佳答案 它当然仍然存在,
所以我有一个类似这样的 dl 列表: .title { display: inline-block; padding-bottom: 20px; } dd { -moz-margin-st
我正在使用 PostgreSQL 8.4.20 版。由于工作问题和上面运行的现有数据库,我无法升级它。 我创建了一个如下所示的模式: -- -- Name: Bug Tracking; Type: C
我正在寻找类似 hive 的东西 Select * from table 1 where dt > (Select max(dt) from table2) 显然,hive 不支持 where 子句中
我的数据存储方式的示例 df: df = pd.DataFrame({'DOB': {0: '2003-01-01 00:00:00+00', 1: '2003-01-02 00:00:00+00'}
我想列出一个定义列表与 一列中的元素及其对应的 另一个元素。 棘手的部分是我想要我的 s 永远不会换行,如果它们对于第一列来说太宽,我想要 元素向下移动以腾出空间: 这是我的目标的屏幕截图: 这是
在我开始这个问题之前,我使用 P0、P1、P2 和 P3 作为四个立方贝塞尔曲线点,并且使用“t”因为它是参数化的。另外,我在这个网站和谷歌上搜索过类似的问题,但没有找到。如果这是一个常见问题,我深表
我正在尝试将两个常用共享的 JS 回调组合到一个 R 数据表 Shiny 应用程序(具有单选按钮(参见 https://yihui.shinyapps.io/DT-radio/ 和 Extractin
我正在尝试垂直滚动,但这不起作用,有人可以解释原因吗?我还想默认一次显示 20 行。 谢谢 title: "Untitled" output: flexdashboard::flex_dashbo
是否可以在 Rstudio DT 数据表中在标题参数中添加超链接?我已经尝试了很多次,但我似乎无法让任何事情发挥作用。我尝试了 w3schools fiddle 的 html 标题,我可以获得一个在表
是否可以在 Rstudio DT 数据表中在标题参数中添加超链接?我已经尝试了很多次,但我似乎无法让任何事情发挥作用。我尝试了 w3schools fiddle 的 html 标题,我可以获得一个在表
我是一名优秀的程序员,十分优秀!