小编Car*_*los的帖子

我有一个由函数返回的日期列表,如下所示:

$`2014-03-02T05:20:13,2014-03-02T05:20:13`
[1] "2014-03-02" "2014-03-02"

$`2013-12-04T21:06:28,2013-12-04T21:06:37,2013-12-04T21:06:46,2013-12-04T21:06:49,2013-12-04T21:07:16,2014-01-09T16:20:55,2014-01-09T18:20:59,2014-01-09T18:21:08,2014-01-09T18:21:08`
[1] "2013-12-04" "2013-12-04" "2013-12-04"
[4] "2013-12-04" "2013-12-04" "2014-01-09"
[7] "2014-01-09" "2014-01-09" "2014-01-09"

我想将列表中的所有单个元素放入日期向量中.实现这一目标的最佳方法是什么？

谢谢!

这是我的Shiny UI的简化.我的问题是SelectizeInput的下拉菜单是隐藏的.向下滚动有点痛苦.而且,它看起来不是很好.我尝试过使用z-index来预先设置,但没有取得任何成功.

这是我的代码:

library(shiny)
runApp(list(
  ui = fluidPage(
    tabsetPanel(id = "tabs",
                tabPanel("Search",
                         fluidRow(
                           column(12,
                                  inputPanel(
                                    selectizeInput("s1", h4("Select State:"),
                                                   choices = state.name),
                                    tags$head(tags$style(".selectize-control.single { width: 400px; z-index: 1; }")),
                                    dateInput("day", h4("Input Date:"), value = Sys.Date())
                                  )
                           )
                         )
                )
    )),
  server = function(input,output,session) 
    {

  })
)

基本上,我希望SelectizeInput菜单像DateInput日历一样显示在顶部.

谢谢您的帮助!

卡洛斯

我有一些文本文件，其中有几列。我使用 awk 仅将我想要的列写入稍后分析的输出文件中。

awk 'BEGIN {FS="\t"}; {print $2,FS,$3,FS,$4} input_files*.txt >> output_file.txt

我可以更进一步，根据 $5 列的值将 awk 命令的输出重定向到多个文件吗？如果列 $5 = A、B、C 和 DI 最终结果如下：

output_file_A.txt
output_file_B.txt
output_file_C.txt
output_file_D.txt

谢谢。

卡洛斯

我正在使用data.table在一列中获取一些基本统计信息,同时按另一列进行过滤.

这是命令

stats <- as.data.frame(mydata[, j = list(Sum = sum(as.numeric(get(selection))),
                                         Average = mean(as.numeric(get(selection))),
                                         Count = length(get(selection))), 
                                by = list(get(filters))])

哪里:

• mydata是一个包含20个左右列的data.table
• selection是以编程方式传递的列名
• filters也是以编程方式传递的列名

如果我将自己限制在一个过滤器(一列),一切正常,但我想过滤多个列.

有可能做到:

by = list(get(filters[1]), get(filters[2]), ...) 

但是,这需要我知道将使用多少个过滤器.这是我不想要的限制.

如何编写by =来获取任意数量的过滤器(列名称) - 我只是尝试了mget(过滤器),但这不起作用.

谢谢!

卡洛斯