我从几个例子中一起攻击了这个。预期的行为是将字符串“?foo”附加到barsite.com的网址末尾,然后终止。
实际行为是它附加到URL,然后无休止地刷新页面并附加字符串。我不太了解脚本/ js来弄清楚为什么它表现得像一个循环。
我不确定我的正则表达式是罪魁祸首,还是声明正文中的内容。
// ==UserScript==
// @name Barfoo Hack
// @namespace http://tampermonkey.net/
// @version 0.1
// @description Add ?foo to barsite.com urls
// @author DC
// @match *://*.barsite.com/*
// @run-at document-start
// @grant none
// ==/UserScript==
var oldUrlPath = window.location.pathname;
if ( ! /\?foo/.test (oldUrlPath) ) {
var newURL = window.location.protocol + "//" +
window.location.host + oldUrlPath + "?foo" +
window.location.search +
window.location.hash;
window.location.replace (newURL);
}
答案 0 :(得分:1)
感谢Amadan,解决方案是在Cat <- c(1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4)
variable <- c("IL_1_Flag_p", "IL_1_Flag_p", "IL_1_Flag_p", "IL_1_Flag_p", "IL_2_Flag_p", "IL_2_Flag_p", "IL_2_Flag_p","IL_2_Flag_p", "IL_3_Flag_p", "IL_3_Flag_p", "IL_3_Flag_p", "IL_3_Flag_p", "IL_4_Flag_p", "IL_4_Flag_p", "IL_4_Flag_p", "IL_4_Flag_p", "IL_5_Flag_p", "IL_5_Flag_p", "IL_5_Flag_p", "IL_5_Flag_p")
value <- c(21,17,16,210,20,17,15,189,20,17,15,188,19,17,15,188,20,17,15,194)
agg_melt_p <- data.frame(cat, variable, value)
而不是window.location.search
进行测试
更新的例子:
window.location.pathname