小编719*_*016的帖子

我想在我的Ubuntu 14.10笔记本电脑上运行http://rstudio.github.io/shinydashboard/.

我按照安装说明进行操作:

http://rstudio.github.io/shinydashboard/get_started.html

基本shiny页面有效.例如:

HTTP://本地主机:3838 /样品的应用程式/你好/

但是,当我尝试其中一个shinydashboard示例时,我收到错误:

HTTP://本地主机:3838 /样品的应用程式/光泽/

ERROR: there is no package called "shinydashboard"

如果我在终端中运行R会话,我可以加载shinydashboard 库,如果我在R会话中复制+粘贴此代码,我会在仪表板上显示一个浏览器窗口:

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

它说:

Attaching package: 'shinydashboard'

The following object is masked from 'package:graphics':

    box

> 
> ui <- dashboardPage(
+   dashboardHeader(),
+   dashboardSidebar(),
+   dashboardBody()
+ )
> 
> server <- function(input, output) { }
> 
> shinyApp(ui, server) …

在PEP 553 breakpoint()实用程序之前的python版本中，推荐的方法是添加（理想情况下是单行）代码以具有可以在某种条件下忽略的断点（例如，全局调试标志或args.debug标志）的推荐方法。

在Perl中，我习惯于使用$DB::single=1;1;单行，我知道我可以放心地留在代码中，perl code.pl除非明确调用，否则不会影响的正常运行perl -d code.pl。例如：

my $a = 1;
$DB::single=1;1; # breakpoint line
my $b = 2;
print "$a $b\n";

如果我将此代码运行为：perl code.pl，它将运行完成。如果我使用以下代码运行该代码：perl -d code.pl，pdb它将在断点行处停止（而不是在带有my $b = 2;语句的下一行之前），因为它在1;语句后包含一条$DB::single=1;语句；

同样，如果我写：

my $debug = 1;
my $a = 1;
$DB::single=$debug;1; # first breakpoint line
my $b = 2;
$DB::single=$debug;1; # second breakpoint line
print "$a $b\n";
# [...] Lots more code sprinkled …

我有一个输入文件,其中包含~50000个簇的列表,并且每个簇中都存在多个因子(总共约1000万个条目),请参阅下面的较小示例:

set.seed(1)
x = paste("cluster-",sample(c(1:100),500,replace=TRUE),sep="")
y = c(
  paste("factor-",sample(c(letters[1:3]),300, replace=TRUE),sep=""),
  paste("factor-",sample(c(letters[1]),100, replace=TRUE),sep=""),
  paste("factor-",sample(c(letters[2]),50, replace=TRUE),sep=""),
  paste("factor-",sample(c(letters[3]),50, replace=TRUE),sep="")
)
data = data.frame(cluster=x,factor=y)

在另一个问题的帮助下,我得到了一个像这样的因素同时出现的饼图:

counts = with(data, table(tapply(factor, cluster, function(x) paste(as.character(sort(unique(x))), collapse='+'))))
pie(counts[counts>1])

但是现在我想得到一个因子共存的维恩图.理想情况下,也可以采用每个因子的最小计数阈值.例如,针对不同因素的维恩图,使得每个因子中的每一个必须在每个群集中存在n> 10以被考虑.

我试图找到一种方法来生成具有聚合的表计数,但无法使其工作.

我有一个large.tar.gz包含大约100万个文件的文件,其中大约1/4是html文件,我想解析其中每个html文件的几行.

我想避免必须将大量的内容解压缩large.tar.gz到一个文件夹,然后解析html文件,而我想知道如何在large.tar.gz直接管道html文件的内容,STDOUT以便我可以grep /解析出来我想要他们的信息？

我认为必须有一些魔术:

tar -special_flags large.tar.gz | grep_only_files_with_extension html | xargs -n1 head -n 99999 | ./parse_contents.pl -

有任何想法吗？

如何将sidebarPanel宽度修复为特定值(以像素为单位),而不是占用与mainPanel相比的总宽度的一部分？

有没有办法只使用内置过滤器进行basename或dirname在jinja2？例如:

#!/usr/bin/python
import jinja2

mybin = '/my/favorite/full/path/foo'
t = jinja2.Template("my binary is {{ mybin }}")
print t.render()
t = jinja2.Template("my basename is {{ mybin|basename() }}")
print t.render()
t = jinja2.Template("my dirname is {{ mybin|dirname() }}")
print t.render()

1

有任何想法吗？

是否有变量或方式查询正在运行的RStudio Shiny网页以显示正在运行的服务器的版本？例如shiny-0.10.1在网页上显示类似的内容.

有任何想法吗？

我想有一个类似的工作示例:https: //demo.shinyapps.io/029-row-selection/

我试过例如在我闪亮的服务器上运行Shiny Server v1.1.0.10000,packageVersion: 0.10.0并且Node.js v0.10.21,但是即使我加载从网站的JS和CSS文件,它不工作.它根本不从表中选择行:

# ui.R
library(shiny)

shinyUI(fluidPage(
  title = 'Row selection in DataTables',
  tagList(
          singleton(tags$head(tags$script(src='//cdn.datatables.net/1.10.2/js/jquery.dataTables.js',type='text/javascript'))),
          singleton(tags$head(tags$script(src='//cdn.datatables.net/1.10.2/css/jquery.dataTables.min.css',type='text/css')))
        ),
  sidebarLayout(
    sidebarPanel(textOutput('rows_out')),
    mainPanel(dataTableOutput('tbl')),
    position = 'right'
  )
))

# server.R
library(shiny)

shinyServer(function(input, output) {
  output$tbl <- renderDataTable(
    mtcars,
    options = list(pageLength = 10),
    callback = "function(table) {
      table.on('click.dt', 'tr', function() {
        $(this).toggleClass('selected');
        Shiny.onInputChange('rows',
                            table.rows('.selected').indexes().toArray());
      });
    }"
  )
  output$rows_out <- renderText({
    paste(c('You selected these rows on the page:', input$rows),
          collapse = ' …

我正在计算一堆文本文件中的一堆数字的平均值,如下所示:

grep '^num' file.$i | awk '{ sum += $2 } END { print sum / NR }'

但有时文件不包含模式,其中cas我希望脚本返回零.这个略有修改的单线的任何想法？

我一直在perl脚本中使用JSON包来解析一长串相对较短的JSON字符串,并用Devel :: NYTProf来描述这个过程.似乎大多数时间是由JSON string函数在解析过程中采用的.

除了不使用JSON包并尝试通过自己解析它来加速它之外,我还能使用任何加速吗？

编辑:JSON包使用安装在系统中cpanm.如果通过优化安装过程可以获得任何加速,它们也受到欢迎.