Tag: r

renderDataTable选择包含值> 10的所有单元格并突出显示

我正在创建一个具有用户定义的行数和列数的dataTable。 我想循环遍历表中的所有单元格（减去第一列，其中包含名称），并在值大于10时突出显示/更改CSS.Shiny有一个很好的例子，可以定位特定的列（见下文）。 我假设我需要编写某种jQuery函数？ 我是一个完整的jQuery新手，所以我试了一下，而且，它显然没有用（也见下文）。 任何帮助将不胜感激！ 定位特定列的shiny示例： rowCallback = I( ‘function(row, data) { // Bold cells for those >= 5 in the first column if (parseFloat(data[0]) >= 5.0) $(“td:eq(0)”, row).css(“font-weight”, “bold”); }’ ) 我尝试编写循环遍历单元格的函数失败了： rowCallback = I(‘ function(row, data) { for each (i in 1:1000) { if (parseFloat(data[i]) > 10.0) $(“td:eq(i)”, row).css(“color”, “red”);} }’)

Rshiny鼠标hover到所有表格单元格

如何实现所有表格单元格的鼠标hover文本（不是列名称）。我有3列的数据表。 在鼠标hover在第3列的单元格上时，需要显示该特定行的第1列和第2列的组合内容。我尝试探索DT包以实现相同但没有成功。任何提示或我们是否有任何支持hover的库表。

renderUI中shiny的语义Ui元素

这个问题是基于我之前关于在shiny的应用程序中添加ui语义元素的。 这里链接，最近的问题： Rshiny应用中的星级评分 ， 如何通过单击按钮将shiny的形状翻转？ 如果它们是直接在UI.R中构建的，我可以显示评级星和形状。 但是，我在renderUi中需要它们，因为我有一个登录页面并使用了观察UI。 这里的示例代码： Ui.R： shinyUI(semanticPage( shinyjs::useShinyjs() ,uiOutput(“test”))) Server.R： library(shiny) library(shinyjs) library(shiny.semantic) library(highlighter) jsCode <- " $('.shape').shape(); $('.ui.rating') .rating({}); " shinyServer(function(input, output) { runjs(jsCode) output$test <- renderUI({ tagList( div(class="ui shape", div(class="sides", div(class="ui header side active","This side starts visible."), div(class="ui header side","This is yet another side"), div(class="ui header side","This is the last […]

Shiny.onInputChange不是一个函数

我有像我的shiny应用程序中的代码： $(function() { Shiny.onInputChange(‘initialHash’, parseHashQuery()); }); function parseHashQuery() { var result = {}; location.hash.replace(/^#/, ”).split(‘&’).filter(Boolean).forEach(function(part) { var pair = part.split(‘=’); result[pair[0]] = pair[1]; }); return result; } 但我有错误： common.js:59 Uncaught TypeError: Shiny.onInputChange is not a function at HTMLDocument. (common.js:59) at i (jquery.min.js:2) at Object.fireWith [as resolveWith] (jquery.min.js:2) at Function.ready (jquery.min.js:2) at HTMLDocument.K (jquery.min.js:2)

在shiny的应用中捕获iframe中的点击

我希望在shiny的应用中捕获iframe中的链接。 我想知道点击了哪个链接。 外面有光泽，这很好用。 我为相关问题添加了一个完全可重现的示例： https ： xaamp （它必须在（本地）服务器上运行，例如xaamp ）。 我的尝试： 1）要保存在Path/To/App 。 2）在www文件夹中存储应该在iframe中显示的html文件。 fileWithLink.html SOreadytohelp 3）必须使用runApp(“Path/To/App”, launch.browser = TRUE)启动应用程序runApp(“Path/To/App”, launch.browser = TRUE) （以便启动本地服务器）。 library(shiny) library(shinyjs) ui <- fluidPage( useShinyjs(), htmlOutput("filecontainer") ) server <- function(input, output, session){ session$onFlushed(once = T, function(){ runjs(" console.log('I arrive here') $('#filecontainer').load(function(){ console.log('But not here') var iframe = $('#filecontainer').contents(); iframe.find('#a').click(function(){ alert('I want […]

R组合数据表DT包和迷你图包装盒图与目标值

我在DT表格中使用了迷你图，如下所示： https ：//leonawicz.github.io/HtmlWidgetExamples/ex_dt_sparkline.html 简化虚拟示例如下 library(data.table) library(DT) library(sparkline) hist.A<-rnorm(100) hist.B<-rnorm(100) hist.C<-rnorm(100) current.A<-rnorm(1) current.B<-rnorm(1) current.C<-rnorm(1) #whisker should show full range of data boxval.A<-paste(quantile(hist.A,probs=c(0,0.25,0.5,0.75,1)),collapse = ",") boxval.B<-paste(quantile(hist.B,probs=c(0,0.25,0.5,0.75,1)),collapse = ",") boxval.C<-paste(quantile(hist.C,probs=c(0,0.25,0.5,0.75,1)),collapse = ",") data<-data.frame(Variable=c("A","B","C"),Current=c(current.A,current.B,current.C),boxplot=c(boxval.A,boxval.B,boxval.C)) data$boxWithTarget<-paste(data$boxplot,data$Current,Sep=",") cd <- list(list(targets = 2, render = JS("function(data, type, full){ return '’ + data + ” }”))) line_string <- "type: 'line', lineColor: 'black', fillColor: […]

如何在Shiny DT数据表中预选行

我正在使用Shiny（0.12.0）和DT（0.0.65）在这个Shiny数据表中进行行选择。 我想预先选择前5行。 我试过了： 使用datatable中的callback JS更改行的类。 但是，这并未反映在input$x1_rows_selected变量中。 由于CSS，只有背景/突出显示更改。 在选项列表或callback中的rowCallback中使用rowCallback .click() 。 这在加载页面时不起作用。 但是，当我通过控制台/浏览器开发工具运行相同的代码时，它可以工作（更新input$x1_rows_selected ）。 callback JS： output$x1 = DT::renderDataTable({ datatable(cars, rows = $(“#x1 tbody tr”); $(rows).slice(0,5).each(function() { $(this).click(); }); ) })

使用ajax的儿童行shiny数据表

我正在尝试使用数据表库来实现更多自定义。 这是我想要做的例子。 https://datatables.net/examples/api/row_details.html请注意，我在不同的data.frame R变量中有详细信息。 像这样 A= data.frame(Name = c(“Airi Satou”, “Angelica Ramos”,”Paul Byrd”) , Position = c(“Accountant”,”Accountant”, “CEO”) , Office = c(“Tokyo”, “Tokyo”, “New York”)) A.detail= data.frame(Name = c(“Airi Satou”, “Angelica Ramos”) , Extension= c(“5407c”, “8422”) , salary = c(16000, 20000)) 我不喜欢合并两个data.frame变量，如果可以在没有合并的情况下这样做，因为计算时间。 显然，有些行可能没有任何细节。 我可以在数据表中选择一行，并通过将其绑定为输入将行信息发送到R（感谢https://github.com/toXXIc/datatables.Selectable/ ）然后我可以找到与R中所选行相关的详细信息第二个data.frame变量。 但我不知道如何将此发送回html（在所选行下）显示。 我已经把第一个表绑定为shinyoutput所以我;我不确定是否可以传递另一个数据来再次更改此输出。 也许我应该使用ajax在单击详细信息按钮时请求更多数据，但我不知道如何在shiny的情况下执行ajax请求。

R shiny – 在selectInput中保存选定的值

我有10个’编辑’动作按钮。 在每个“编辑”操作按钮上会出现三个selectInput。 点击selectInputs下方的“保存”按钮后，我想记住所选的值。 如果我转到第2行 – >单击“编辑” – >选择值 – >单击“保存”并返回第1行，它不记得先前在第1行中选择的值。 所以我想在“保存”按钮上有两个动作，即： 存储给定’行’的选定值（所以当我再次点击相同的编辑按钮时，我将看到之前选择的值） 单击“保存”按钮后，使所有selectInputs消失 库（shiny） ui <- shinyUI(fluidPage( titlePanel("Update Select Inputs"), mainPanel( tags$head(tags$script(HTML("$(document).on('click', '.needed', function () { Shiny.onInputChange('last_btn',this.id); });"))), column(width = 6, uiOutput('ValuesAndButtons')), column(width = 6,uiOutput('Details')) ) ) ) server <- shinyServer(function(input, output) { output$ValuesAndButtons <- renderUI({ lapply( c(1:10), function(i){ fluidRow( column( width = 4, tags$span(i) […]

这是什么类型的HTML表格，您可以使用哪种类型的网页抓取技术？

我试图在这个链接中提取数据， http：//www.rchsd.org/doctors/index.htm？strt = 0＆ln =＆fn =＆sp =＆grp =＆loc =＆lng =＆gen = ，用R但它更确切难。 我注意到，每当我点击页码时，url链接都不会改变。 这个表是用JavaScript创建的吗？ 表是由某些外部源创建的，我如何才能访问它？ 此外，这种类型的表有技术名称吗？ 此外，对于任何知道使用R或任何其他程序进行网页抓取的人，您将如何从此表中提取所有数据？ 我尝试在R使用以下代码来提取数据，但我得到NULL 。 你会如何解决这个问题？ mps <- paste("http://www.va.gov/providerinfo/SANDIEGO/index.asp?servicesearch=&specialtysearch=&gendersearch=&sort=&currentPage=1") mps.doc <- htmlParse(mps) mps.tabs <- readHTMLTable(mps.doc) 另外，如果你不能解决我问题的后半部分，那也没关系。 我主要想知道我问题上半部分的答案。