小编gun*_*ica的帖子

我创建了UITableView一个自定义UITableViewCell.我的单元格包括UIImageView左侧和UITextView右侧的单元格.

在里面UITableViewController,我在tableview中设置了图像和文本cellForRowAtIndexPath.

一切都显示正常,但现在我需要实现didSelectRowAtIndex我需要区分是否UIImageView或UITextView细胞已被点击.

假设图像点击表示删除操作和其余的单元格编辑操作.

我有一个数据集(测试),如下所示:

Type    Met1    Met2    Met3    Met4
TypeA   65  43  97  77
TypeA   46  25  76  77
TypeA   44  23  55  46
TypeA   46  44  55  77
TypeA   33  22  55  54
TypeB   66  8   66  47
TypeB   55  76  66  65
TypeB   55  77  88  46
TypeB   36  67  55  44
TypeB   67  55  76  65

我在盒子图上检查了很多链接,但是我仍然没有成功获得我想要的盒子图.我希望有一个箱形图,我的X轴有所有Mets(Met1,Met2,Met3,Met4)的A型(黄色,橙色).从本质上讲,我想要以下内容(取自此处):

我正在尝试一些事情,比如

boxplot(formula = len ~ Type , data = test, subset == "TypeA")
boxplot(formula = len ~ Type , data = …

我正在使用gplot生成热图,显示治疗组与配对对照的log2倍变化.使用以下代码:

 heatmap.2(as.matrix(SeqCountTable), col=redgreen(75), 
           density.info="none", trace="none", dendrogram=c("row"), 
            symm=F,symkey=T,symbreaks=T, scale="none") 

我输出了一张真实倍数变化值(即非Row-Z得分)的热图,这是我所追求的,是每个生物学家最喜欢的红黑绿配色方案!

log2倍变化的实际范围是-3/+ 7,其中许多值在-2/-1和+ 1/+ 2范围内,分别显示为深红色/绿色(分别).这使整个热图非常暗,难以解释.

• 有没有办法扭曲颜色渐变,使其线性变小？也就是说,在较小的范围内发生从黑色到非常明亮的梯度？
• 和/或改变颜色范围是不对称的,即从-3/+ 7开始,如数据那样,而不是当前比例为-7/+ 7,黑色仍然以零为中心？

我有一个闪亮的界面,我用DT::dataTableOutput和DT::renderDataTable了很多.但是,我想知道是否有办法缩小数据表的大小,例如,使字体和表格更小.我该怎么做？

假设我有以下代码:

foo <- function(){
  shinyApp(
    ui = fluidPage(
      DT::dataTableOutput("table")
    ),

    server <- function(input, output) {
      x <- data.frame(1:5, 2:6)
      output$table <- DT::renderDataTable(x)
    }
  )
}

我应该添加哪些选项或标签？

我想使用R中的sample()函数从我的数据集中随机选择n行.我每次都得到不同的输出,因此使用函数来获得相同的输出.我知道,will 中的每个整数都会给我一个唯一的输出,如果设置相同的种子,输出将是相同的.但我无法弄清楚作为参数传递给函数的整数意味着什么.它只是一个进入随机生成器算法的索引,还是指从您开始采样的数据的某些部分？例如,什么是在是什么意思？set.seed()set.seed()set.seed()2set.seed(2)

我目前正在将我的网站从Apache迁移到nginx,但我的.htaccess文件无效.我的网站在/usr/share/nginx/html/mywebsite文件夹里面.我如何.htaccess在我的nginx服务器中使用？

这是我的.htaccess档案:

RewriteEngine on
RewriteRule video/watch/([a-zA-Z0-9_@$*-]+)/?$ "videos-single.php?id=$1" [NC]

根据http://www.cplusplus.com/reference/map/map/,我可以使用m[k]或m.at(k)访问k地图中某个键的值m.但是,当我尝试做的时候

derivMap[fx]

在我的代码中,derivMap是std::map<std::string,std::string>Visual Studio 2013 类型的元素,它给了我警告

没有operator []匹配这些操作数

但是,当我将代码更改为

derivMap.at(fx)

我没有错.你对这个问题有什么了解吗？

我发现很难找到解决以下问题的快速解决方案:

我有一个观察矢量,它表明观察某些现象的时间.

example <- c(0,0,0,1,0,1,1,0,0,0,-1,0,0,-1,-1,0,0,1,0,0);

现在我想在特定观察之间消除零,假设某个现象被认为会继续,直到发现一个矛盾的观察结果,即,如果在第三次观察中观察到''1',我想只有''1 ''到第11个元素,当第一个'-1'被观察到时.所以我想要的输出看起来像:

desired.output <- c(0,0,0,1,1,1,1,1,1,1,-1,-1,-1,-1,-1,-1,-1,1,1,1);

> print(cbind(example, desired.output))
      example desired.output
 [1,]       0              0
 [2,]       0              0
 [3,]       0              0
 [4,]       1              1
 [5,]       0              1
 [6,]       1              1
 [7,]       1              1
 [8,]       0              1
 [9,]       0              1
[10,]       0              1
[11,]      -1             -1
[12,]       0             -1
[13,]       0             -1
[14,]      -1             -1
[15,]      -1             -1
[16,]       0             -1
[17,]       0             -1
[18,]       1              1
[19,]       0              1
[20,]       0              1

我的蹩脚解决方案是

for (i in 1:length(example)){ …

我想在ggvis图表下方制作一个水平图例.我可以使用图例属性将其放置在图表下方,但不知道如何使图标在图例标题下方水平.以下是可重复的最低代码(从网上抓取).

df1 = data.frame(x=sample(1:10), y=sample(1:10))
df2 = data.frame(x=1:10, y=1:10)
df3 = data.frame(x=1:10, y=sqrt(1:10))

df2$id <- 1
df3$id <- 2
df4    <- rbind(df2,df3)
df4$id <- factor(df4$id)

df4 %>% ggvis(x=~x, y=~y, stroke=~id) %>% layer_lines() %>%
    # make sure you use add relative scales
    add_relative_scales() %>%
    # values for x and y need to be between 0 and 1
    # e.g for the x-axis 0 is the at far-most left point and 1 at the far-right 
    add_legend("stroke", title="Cylinders",
               properties=legend_props(
                   legend=list(
                       x=scaled_value("x_rel", …

在RMarkdown 参数化报告页面上的最后一个示例之后,我尝试使用该Shiny接口选择我的输入文件,其中包含以下代码YAML:

params:  
  data:  
    input: file  
    label: 'Input dataset:'  
    value: myData.csv  

该Shiny界面显示了,我去浏览文件,但是当我试图访问其进一步下跌的R通过代码read.csv(file=params$data, header=TRUE),我得到以下信息:

文件错误(文件,"rt"):无法打开连接

我怎样才能阅读我的文件？

注意:我看到一个线程,用户在渲染RMarkdown文档时在函数中传递文件路径,但这不是我想要做的.我只想从Shiny界面中选择它.

编辑
在播放了一些之后,我认为问题是shiny当我尝试访问它时,在读取我通过接口选择并作为params $ data传递的文件时创建的临时文件不再存在.
确实,file.exists(params$data)回报FALSE.

所以我想现在我的问题变成了:如何在删除之前读取这个临时文件？