有很多程序可以创建一个差异补丁,但我有一点时间试图应用一个.我正在尝试分发补丁,我从用户那里得到了一个关于如何应用补丁的问题.所以我试着自己搞清楚,发现我没有线索,我能找到的大多数工具都是命令行.(我可以处理一个命令行,但是很多人在没有友好的GUI的情况下会丢失.所以这些都不利于此目的.)
我尝试过使用TortoiseSVN.我有我想申请的补丁.我右键单击补丁,TortoiseSVN子菜单下有一个选项,上面写着"Apply patch".它只是拉出一个空窗口.
所以我试着点击Open.它有两个选项:合并和应用统一差异.(幸运的是,补丁采用统一的差异格式.)但是普通的apply选项不起作用:它要求补丁和文件夹.不知怎的,它忘了要求文件应用补丁!所以TortoiseSVN只是简单的不起作用.是否有基于Windows GUI的实用程序,它将获取补丁和文件并正确应用它?
编辑:看看到目前为止的回复,似乎Tortoise只会在它已经版本化的文件中正确执行.情况并非如此.我需要能够将补丁应用于不是来自SVN存储库的文件.我只是尝试使用Tortoise,因为我碰巧知道SVN使用差异并且必须知道如何创建它们并应用它们.
我想知道如何省略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)
但我只是想省略其中的数据y是NA,因此结果应该是
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,我可以|在哪里放入函数?
我试图在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) 我正在使用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=参数,但是将图标放在浏览器的选项卡上.
关于如何将图像放在导航栏上的任何想法?
我有一个动物园时间序列,错过了几天.为了填补它并有一个连续的系列我做...
我从头到尾生成一个chron日期时间序列.
我把我的系列与这个合并.
我使用na.locf代替具有las遮挡的NAs.
我删除了syntetic chron序列.
我可以更容易吗?也许有一些与频率相关的指数函数?
我正在研究图切割算法的数据结构.问题是在最短路径上进行不同的切割.我制作了数据结构,我不确定属性.
输入是最短路径的有向图,它是有界点阵,有最小和最大元素的部分有序集.
将节点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) 我有一个简单的闪亮应用程序,可以跟踪用户按下某个操作按钮(actionButton())的次数,并将此总数与其他信息一起报告给用户.
现在我知道Shiny R为每个应用创建一个R会话,因此如果多个用户同时访问同一个应用,他们都在使用相同的R会话.因此,报告的用户X的动作按钮按下的数量最终是在当前R会话期间访问应用程序的所有用户的动作按钮按下的总和.
在某种意义上,我想让用户分开,在一个R会话中创建应用程序的虚拟实例.
我知道当函数shinyserver()与session参数一起运行时,会创建一个会话对象,并且有关客户端计算机的信息存储在其中session$clientdata.
是否有一些已知的方法来利用此对象的内容,以便设置和管理文件,以跟踪在任何给定时间访问应用程序的各种用户的状态?
注意:在得出答案后,我重写了问题,如果更清楚的话.
有时在shiny应用程序中.我想使用用户为窗口小部件选择的值,以及为该窗口小部件选择的先前值.这可以应用于从用户输入派生的反应值,其中我想要旧值和新值.
问题是,如果我尝试保存窗口小部件的值,那么包含该值的变量必须是被动的,或者每次窗口小部件更改时都不会更新.但是,如果我将值保存在被动上下文中,它将始终为我提供当前值,而不是前一个值.
如何保存窗口小部件的先前值,但每次用户更改窗口小部件时仍会更新它?
有没有一种方法不需要actionButton每次用户更改东西时使用?避免actionButton添加一个是可取的,否则不必要,并为用户创建多余的点击.
如何查看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) 我有一个闪亮的应用程序,当我运行它时,我得到一个错误说,一个object of type ‘closure’ is not subsettable.那是什么,我该如何解决?
注意:我写了这个问题,因为这出现了很多,而且可能的欺骗要么不shiny相关,要么不具体,以至于答案广泛适用并不明显.