我正在尝试显示和更新 gui 元素（文本字符串）。有人能告诉我我在这里做错了什么吗？初始文本永远不会被循环中的更新文本替换。
kills=0
#n::
Gui,Add,Text,vStatus, starting the killing
Gui,Show,w250 h375
Loop
{
GuiControl,,vStatus, killed %kills% Glorks!
kills+=1
Sleep,3000
}
return
我正在尝试获取 Response 对象的键和值列表，以便我可以将它们转换为哈希，但是我在理解 Nokogiri 时遇到了问题。XML：
<?xml version="1.0" encoding="UTF-8"?>
<xml>
<Response>
<Name>Anonymous</Name>
<ExternalDataReference></ExternalDataReference>
<EmailAddress>hi guys</EmailAddress>
<IPAddress>blahblah</IPAddress>
<Status>0</Status>
..... (approximately 30 more elements within each response tag)
</Response>
(approximately 75 more response tags in the document)
我的目标是为每个 Response 得到这样的东西：
Name: Anonymous
ExternalDataReference:
EmailAddress: hi guys
IPAddress: blahblah
到目前为止我的代码：
f=File.open("./stufftoparse.xml")
doc = Nokogiri::XML(f)
puts "#{doc.xpath("//Response").keys} \n#{doc.xpath("//Response").values}"
我知道上面的代码不起作用，但我不太明白如何获取 Response 标签中的元素（我不认为它们是 Response 的属性，因为它们在它们自己的 XML 中）。有人可以解释如何做到这一点吗？请注意，我花了一些时间阅读 Nokogiri 文档，但找不到与 XPATH 示例相关的太多内容。
附加问题： 如何将响应分开以便我有这样的东西？
Response1:
Name: Anonymous
ExternalDataReference:
EmailAddress: hi guys
IPAddress: blahblah
Response2:
Name: Anonymous
ExternalDataReference:
EmailAddress: …我试图根据第2列和第3列是否包含0来删除行.我一直得到非常奇怪的结果.我试图在没有subset最初的情况下编写它,因为我读了一些subset因为内存成本而应该只用于少量数据的地方.然而,这两项尝试都没有对我有用.谁能解释我做错了什么？
df <- data.frame(val1=c(1,2,3), val2=c(4,0,5), val3=c(3,0,6))
subset(df,df>0,c(2,3))
data.frame(df[df[,c(2,3)]!=0])
最终目标:
val1 val2 val3
1 1 4 3
1 2 0 0
3 3 5 6
我的目标是为每个拆分获得相同的行数(基于列Initial).我试图基本填充行数,以便每个人具有相同的数量,同时保留初始列,以便我可以区分它们.我的尝试彻底失败了.有人有建议吗？
df<-data.frame(Initials=c("a","a","b"),data=c(2,3,4))
attach(df)
maxrows=max(table(Initials))+1
arr<-split(df,Initials)
lapply(arr,function(x){
toadd<-maxrows-dim(x)[1]
replicate(toadd,x<-rbind(x,rep(NA,1)))#colnames -1 because col 1 should the the same Initial
})
目标:
a 2
a 3
b 4
b NA
我试图创建一个按钮和多个滑块，它们根据彼此的值进行更新。由于每个按钮和滑块集都高度相关，因此我尝试调用一个可以更新该集的方法，因此我为 调用一个 Update 方法GenerateItem，而不是对每个对象调用 Update 并使它们相互引用。
为什么我会收到上述错误，解决此问题的“Unity”方法是什么？我的程序可能会有很多这样的滑块和按钮，所以我宁愿不手工编码它们。
必须使用 ScriptableObject.CreateInstance 方法而不是新的GenerateItem 实例化GenerateItem
void Start () {
Button a = ((GameObject)Instantiate(prefabButton)).GetComponent<Button>();
Slider b = ((GameObject)Instantiate(prefabCreationSlider)).GetComponent<Slider>();
Slider c = ((GameObject)Instantiate(prefabCapacitySlider)).GetComponent<Slider>();
Text d = ((GameObject)Instantiate(prefabText)).GetComponent<Text>();
items.Add(new GenerateItem("OxyGen", 0.5f, 50f,a,c,b,d));
}
// Update is called once per frame
void Update () {
items.ForEach(a => a.BtnUpdate());
}
我试过：
GenerateItem o= ScriptableObject.CreateInstance(GenerateItem);
但无法弄清楚如何设置对象的属性。
我正在尝试检查向量中的每个值是否小于或等于 2。 assert_that 似乎对此有问题（可能是由于我缺乏理解）。有人能告诉我这里有什么问题吗？
> require(assertthat)
> x<-c(1,2,1.5)
> assert_that(x<=2) #should return true
Error: assert_that: assertion has length greater than 1
> y<-c(1,2,1.5,3,3)
> assert_that(y<=2) #should return false
Error: assert_that: assertion has length greater than 1
> stopifnot(x<=2)
我有一个数据帧,每行一个值,可能在几列之一.如何创建包含1所在列号的单个列？我想用dplyr做这个,但是我能想到的唯一方法涉及到循环,这看起来非常不像.
df<-data.frame(
a=c(1,0,0,0),
b=c(0,1,1,0),
c=c(0,0,0,1)
)
a b c
1 1 0 0
2 0 1 0
3 0 1 0
4 0 0 1
目标:
1 1
2 2
3 2
4 3
如何获取具有两个连续负值的数据帧的行号？
df<-data.frame(val=c(.3,.1,-.1,-.2,.01,.2,-.9,-.7))
> df
val
1 0.30
2 0.10
3 -0.10
4 -0.20
5 0.01
6 0.20
7 -0.90
8 -0.70
目标:返回第4行和第8行
注意:如果一行中有多于2个负值,我希望返回第二个负值的行号.例如,如果
val
1 -0.30 #added to show just one negative value should be ignored
2 0.10
3 -0.10
4 -0.20
5 0.01
6 0.20
7 -0.90
8 -0.70
9 -0.09 #added to show the case of more than 2 neg values
目标:仍然返回第4行和第8行
我使用Shiny在网站上创建交互式图形,但它似乎不支持注释线程或数据库存储.你应该以某种方式在另一种语言中使用Shiny吗？
几年后回到此帖子，以添加另一个警告：不要这样做
我正在尝试在全局环境中存储来自函数的变量，但是我发现SO post或其他SO post都不适合我的解决方案。这是一个极其简化的示例，用于说明我的问题。我不能只使用<<-使成为v全局变量，因为我的实际函数创建了几十个变量。
代码（main_file.R）
source("function_me.R")
#environment(doGlobalThing) <-parent.frame(2) #didnt work
doGlobalThing()
v #cant get to this var from the global environment
代码（function_me.R）
doGlobalThing<-function(){
#eval(v<-'hi',env=parent.frame(2)) #tried this, didnt work
v<-'hi'
}