小编Joh*_*aul的帖子

如何在Windows上应用diff补丁?

有很多程序可以创建一个差异补丁,但我有一点时间试图应用一个.我正在尝试分发补丁,我从用户那里得到了一个关于如何应用补丁的问题.所以我试着自己搞清楚,发现我没有线索,我能找到的大多数工具都是命令行.(我可以处理一个命令行,但是很多人在没有友好的GUI的情况下会丢失.所以这些都不利于此目的.)

我尝试过使用TortoiseSVN.我有我想申请的补丁.我右键单击补丁,TortoiseSVN子菜单下有一个选项,上面写着"Apply patch".它只是拉出一个空窗口.

所以我试着点击Open.它有两个选项:合并和应用统一差异.(幸运的是,补丁采用统一的差异格式.)但是普通的apply选项不起作用:它要求补丁和文件夹.不知怎的,它忘了要求文件应用补丁!所以TortoiseSVN只是简单的不起作用.是否有基于Windows GUI的实用程序,它将获取补丁和文件并正确应用它?

编辑:看看到目前为止的回复,似乎Tortoise只会在它已经版本化的文件中正确执行.情况并非如此.我需要能够将补丁应用于不是来自SVN存储库的文件.我只是尝试使用Tortoise,因为我碰巧知道SVN使用差异并且必须知道如何创建它们并应用它们.

windows diff patch

133
推荐指数
7
解决办法
12万
查看次数

省略包含NA的特定列的行

我想知道如何省略NA数据框中的值,但只在我感兴趣的某些列中.

例如,

DF <- data.frame(x = c(1, 2, 3), y = c(0, 10, NA), z=c(NA, 33, 22))
Run Code Online (Sandbox Code Playgroud)

但我只是想省略其中的数据yNA,因此结果应该是

  x  y  z
1 1  0 NA
2 2 10 33
Run Code Online (Sandbox Code Playgroud)

na.omit似乎删除所有行包含任何NA.

有人可以帮我解决这个简单的问题吗?

但如果现在我改变了这样的问题:

DF <- data.frame(x = c(1, 2, 3,NA), y = c(1,0, 10, NA), z=c(43,NA, 33, NA))
Run Code Online (Sandbox Code Playgroud)

如果我只想省略x=na或者z=na,我可以|在哪里放入函数?

r dataframe na

113
推荐指数
6
解决办法
18万
查看次数

R Shiny设置DataTable列宽

我试图在Shiny中呈现的DataTable中设置列的宽度,并且无法使用aoColumnDefs选项实现它.有人曾尝试过这个吗?我的表有1个文本,后跟3个数字列.数字列需要更窄,第1列(文本)更宽.

output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
              aoColumnDefs = list(sWidth = "50px", aTargets = list(1))))
Run Code Online (Sandbox Code Playgroud)

谢谢,

  • 拉吉.

**更新**这似乎有效,但也可能有其他选择.

output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
              bAutoWidth = FALSE,
              aoColumn = list(list(sWidth = "150px", sWidth = "30px",
                                       sWidth = "30px", …
Run Code Online (Sandbox Code Playgroud)

r shiny dt

39
推荐指数
2
解决办法
3万
查看次数

如何在闪亮的navbarPage()上将图像插入导航栏

我正在使用navbarPage()布局构建一个闪亮的应用程序.我想在导航栏中插入一个位于屏幕右侧的图像.它看起来像顶部的导航栏,例如stackoverflow站点,但在最右边有一个徽标.我试过了:

shinyUI(
   navbarPage (title="test Page" ,
      img(src="mylogo.gif", style="float:right; padding-right:25px"),
      tabPanel(title="Panel 1",...)
 ))
Run Code Online (Sandbox Code Playgroud)

但是,所有这一切都是在导航栏下方最右侧显示图像,而不是第一个选项卡的内容(注意 - 图像在www需要的目录中).

我可以使用icon=参数,但是将图标放在浏览器的选项卡上.

关于如何将图像放在导航栏上的任何想法?

r shiny

23
推荐指数
3
解决办法
2万
查看次数

R:填写时间序列中缺少的日期?

我有一个动物园时间序列,错过了几天.为了填补它并有一个连续的系列我做...

我从头到尾生成一个chron日期时间序列.

我把我的系列与这个合并.

我使用na.locf代替具有las遮挡的NAs.

我删除了syntetic chron序列.

我可以更容易吗?也许有一些与频率相关的指数函数?

r time-series fill zoo

17
推荐指数
2
解决办法
1万
查看次数

图形/点阵简化

我正在研究图切割算法的数据结构.问题是在最短路径上进行不同的切割.我制作了数据结构,我不确定属性.

输入是最短路径的有向图,它是有界点阵,有最小和最大元素的部分有序集.

节点n的下一个节点N(n)定义为一组节点b,其中a <b且没有c,其中<c <b.类似地定义前一节点P(n).扩展集合的定义,N(n)对于S中的n的N(S)并集,类似于P(S).

在节点集合L,N(L),N(N(L)),...的列表上容易进行不同的切割,其中对于每个相邻的集合对A,N(A)= B认为存在没有分区:

A = A_1 union A_2
B = B_1 union B_2
with B_i = N(A_i), A_i = P(B_i) for i=1,2.
Run Code Online (Sandbox Code Playgroud)

使用此属性创建具有映射的新晶格:

  • 子格到一个节点
  • 如果找到上部分区而不是创建边缘(分区基数编号).

简单来说,格子 - >点阵映射的算法是:

A = {minimum node}
new_node = [A]
1:
while A, N(A) don't have partitions
  append N(A) to new_node
  A = N(A)
for each partition $B_i$
  last_new_node = new_node
  create new_node = [B_i]
  create edge last_new_node to new_node
  go to 1
At the end fix …
Run Code Online (Sandbox Code Playgroud)

algorithm graph-theory graph data-structures

17
推荐指数
1
解决办法
1680
查看次数

在R Shiny应用程序中同时处理多个用户

我有一个简单的闪亮应用程序,可以跟踪用户按下某个操作按钮(actionButton())的次数,并将此总数与其他信息一起报告给用户.

现在我知道Shiny R为每个应用创建一个R会话,因此如果多个用户同时访问同一个应用,他们都在使用相同的R会话.因此,报告的用户X的动作按钮按下的数量最终是在当前R会话期间访问应用程序的所有用户的动作按钮按下的总和.

在某种意义上,我想让用户分开,在一个R会话中创建应用程序的虚拟实例.

我知道当函数shinyserver()session参数一起运行时,会创建一个会话对象,并且有关客户端计算机的信息存储在其中session$clientdata.

是否有一些已知的方法来利用此对象的内容,以便设置和管理文件,以跟踪在任何给定时间访问应用程序的各种用户的状态?

r shiny

15
推荐指数
1
解决办法
1万
查看次数

我可以在更改时保存反应对象的旧值吗?

注意:在得出答案后,我重写了问题,如果更清楚的话.

有时在shiny应用程序中.我想使用用户为窗口小部件选择的值,以及为该窗口小部件选择的先前值.这可以应用于从用户输入派生的反应值,其中我想要旧值和新值.

问题是,如果我尝试保存窗口小部件的值,那么包含该值的变量必须是被动的,或者每次窗口小部件更改时都不会更新.但是,如果我将值保存在被动上下文中,它将始终为我提供当前值,而不是前一个值.

如何保存窗口小部件的先前值,但每次用户更改窗口小部件时仍会更新它?

有没有一种方法不需要actionButton每次用户更改东西时使用?避免actionButton添加一个是可取的,否则不必要,并为用户创建多余的点击.

r reactive-programming shiny shiny-reactivity

12
推荐指数
2
解决办法
2422
查看次数

检查S4方法

如何查看S4功能的定义?例如,我想在封装TSdbi中看到TSconnect的定义.命令

showMethods("TSconnect")
Run Code Online (Sandbox Code Playgroud)

揭示除了其他之外,还存在drv ="histQuoteDriver",dbname ="character"的函数.

我怎样才能看到这个函数的定义?如果它是S3函数,则只有第一个可定义的参数(drv),可以使用print(TSconnect.histQuoteDriver)进行检查.

编辑:从r-forge我发现了所需的输出:

setMethod("TSconnect",   signature(drv="histQuoteDriver", dbname="character"),
  definition= function(drv, dbname, user="", password="", host="", ...){
   #  user / password / host  for future consideration
   if (is.null(dbname)) stop("dbname must be specified")
   if (dbname == "yahoo") {
      con <- try(url("http://quote.yahoo.com"), silent = TRUE)
      if(inherits(con, "try-error")) 
         stop("Could not establish TShistQuoteConnection to ",  dbname)
      close(con)
      }
   else if (dbname == "oanda") {
      con <- try(url("http://www.oanda.com"),   silent = TRUE)
      if(inherits(con, "try-error")) 
         stop("Could not establish TShistQuoteConnection to ",  dbname)
      close(con)
      }
   else 
      warning(dbname, …
Run Code Online (Sandbox Code Playgroud)

r code-inspection s4

11
推荐指数
1
解决办法
1601
查看次数

什么是"类型'闭包的对象'不是子集"错误的闪亮?

我有一个闪亮的应用程序,当我运行它时,我得到一个错误说,一个object of type ‘closure’ is not subsettable.那是什么,我该如何解决?

注意:我写了这个问题,因为这出现了很多,而且可能的欺骗要么不shiny相关,要么不具体,以至于答案广泛适用并不明显.

r shiny

11
推荐指数
1
解决办法
5万
查看次数