小编Mar*_*nau的帖子

闪亮滑块逐月输入

我正在写一个闪亮的,并想要一个日期滑块.我的数据中的日期是每月一次,我想一次一个月前进.滑块输入的文档表示步长值为秒或天,具体取决于最小/最大参数类型.目前我有:

sliderInput("slider", "Time", min=as.Date("2005-01-01"),
                              max=as.Date("2014-12-01"),
                              value=as.Date("2005-01-01"), step = 30,...)
Run Code Online (Sandbox Code Playgroud)

我希望能够逐月而不是白天,但似乎不可能从他们给我的东西.有没有我可以添加的js片段会给我这个功能?

澄清注意:我已阅读此功能的文档,并且据我所知,没有基本功能.测试时,时间格式参数仅更改标签而不是值.我看过一些帖子可以访问某些小部件的值,并想知道这是否可行.例如)

<script type="text/javascript">
    $(document).ready(function() {
    var slider = $("#slider").slider();
 // override the default "nice" function.
    slider.nice = function(value) {
    var ref_date = new Date("2005-01-01");
 // each slider step is 1 day, translating to 24 * 3600 * 1000 milliseconds
    var slider_date = new Date(ref_date.getTime() + value * 24 * 3600 * 1000);
                          return [slider_date.getUTCFullYear(), 
                          slider_date.getUTCMonth() + 1, 
                          slider_date.getUTCDate()].join("-");
                          }
                          })
Run Code Online (Sandbox Code Playgroud)

javascript r shiny

8
推荐指数
2
解决办法
4869
查看次数

从 Java 脚本更新闪亮的输入

我环顾四周并尝试了一些东西,但我似乎无法让它工作。我希望能够从一些 js 代码更新存储在 input$someVar 中的值。我需要在某个元素上单击,我需要更新 input$someVar 值。我知道有像“updateSelectInput()”这样的函数,但这些函数是从服务器调用的。

我可以物理更改在数据属性中使用并显示的 HTML 中的数据值,但服务器不会将此视为更改,并且 input$someVar 保持不变。

我试过了

var selectBind = Shiny.inputBindings.bindings[5];

selectBind.binding.setValue('#loc', newValue);
Run Code Online (Sandbox Code Playgroud)

在事件处理程序中,其中 #loc 是输入元素的 id,希望我可以这样做,但这给了我一个错误。

有没有办法在ui的java脚本中执行“updateSelectInput()”的功能?

r shiny

4
推荐指数
1
解决办法
1055
查看次数

给定n个4x4矩阵的列表,如何将它们组合使得它们连续跟随得到4nx4矩阵

我想要做的是给出一个列表[mat1,mat2,mat3,...,matn],其中每个矩阵是4x4创建一个大的4nx4矩阵:

mat1
mat2
mat3

我使用循环做了这个,但我的列表大约是12000个矩阵,它花了很长时间......我怎么能以更有效的方式做到这一点?

merge r matrix

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

计算每个字符串在 R 中出现的次数

给定一个字符串列表,如何计算每个字符串出现的次数?假设我有一个向量x如下:

x <- c('cat','cat','cat','cat','dog','dog','cat','cow')
Run Code Online (Sandbox Code Playgroud)

我想得到的计数为:

# cat : 5
# dog : 2
# cow : 1
Run Code Online (Sandbox Code Playgroud)

我知道答案不会是这样的格式,而是类似的格式。

string r

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

seq()跳过序列中的值

为了在RI中设置每小时的时间序列,我们遇到了以下情况.

time_index <- seq(from = as.POSIXct("2015-01-01 00:00"), 
                  to = as.POSIXct("2015-03-31 23:00"), by = "hour")
len(time_index)
[1] 2159
Run Code Online (Sandbox Code Playgroud)

从2015年1月1日到3月底,有31 + 28 + 31 = 90天.所以我期望seq返回一个长度为24*90 = 2160的序列,但它似乎是一个短数字.经过一番调查后我注意到了

time_index[1+66*24+1]
[1] "2015-03-08 01:00:00 EST"
time_index[1+66*24+2]
[1] "2015-03-08 03:00:00 EDT"
Run Code Online (Sandbox Code Playgroud)

3月8日错过了一个小时.seq()在这里发生了什么?我犯了一个我错过的简单错误吗?

r

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

Flatmap和rdd同时保留其余条目

我在spark工作,我有一个形式的Rdd:

(x_{11},x_{12}, x_{13}, Array(A_{1},A_{2},A_{3}))
(x_{21},x_{22}, x_{23}, Array(A_{1},A_{2}))
(x_{31},x_{32}, x_{33}, Array(A_{1}))
Run Code Online (Sandbox Code Playgroud)

我想在保持x值的同时展平Array值.我知道如果我只有数组,我可以做df.flatmap并获得每行一个数组元素,但我想做的是得到

(x_{11},x_{12}, x_{13}, A_{1})
(x_{11},x_{12}, x_{13}, A_{2})
(x_{11},x_{12}, x_{13}, A_{3})
(x_{21},x_{22}, x_{23}, A_{1})
(x_{21},x_{22}, x_{23}, A_{2})
(x_{31},x_{32}, x_{33}, A_{1})
Run Code Online (Sandbox Code Playgroud)

基本上我想要的是重复数组中每个项目的行.我怎样才能在Spark-Scala中执行此操作?

scala apache-spark

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

标签 统计

r ×5

shiny ×2

apache-spark ×1

javascript ×1

matrix ×1

merge ×1

scala ×1

string ×1