小编the*_*ist的帖子

假设我有data.frame df

df<-data.frame(a=1:5,b=101:105,c=201:205)

我是否可以调用此数据的子集,同时在运行中对其中一列(或行)执行某种修改(例如,算术运算)？

例如,如果我想返回第一列和第二列df但返回第1列值的日志.是否有一些符号可以修改df[,1:2]以便随时生成以下内容？:

            a   b
>1  0.0000000 101
>2  0.6931472 102
>3  1.0986123 103
>4  1.3862944 104
>5  1.6094379 105

我有一个带有两个数字的向量(或矩阵等).

是否有功能或其他简短的"单线"技巧使这些数字成为包容性序列？

例如:

如果我有一个包含数字1和15的向量.我想快速应用一个函数(或技巧)来生成一个包含1:15(1,2,3,4,5,6 ... 15)的新向量

我知道我可以使用该seq函数来创建序列,但这需要我将矢量(或矩阵等)中的两个数字写成"from"和"to".

• 在data.frames,lists或matrices的索引创建长行文本的示例中,不必为from/to arguments重复这些文本字符串会很好.

例:

dat <- data.frame(a = 1:5, b = 1:5, c = 1:5, d = 1:5, e = 1:5, f = 1:5)

#Too messy/long/time-consuming if my column names are longer/more complex:   
  names(dat)[names(dat) %in% c('a','b','c','d','e')]

#Too much coding text (I'm assuming it can be done simpler):
  names(dat)[seq(from = which(names(dat) == 'a'), to = which(names(dat) == 'e'))]

#So how could I do something like the sequence example, but with less text?
  #perhaps …

我在 Rstudio 中使用 rmarkdown (1.4) / knitr (1.15.1) 来创建 R markdown HTML 页面。我正在将闪亮的文件合并到文件中以制作交互式文档（通过runtime: shiny）。

当我尝试从 Shiny 运行示例时，出现错误：

```{r, eval=TRUE,chunk_title='Shiny_Example'}
runExample("01_hello")
```

错误：无法runApp()从 内部调用runApp()。如果您的应用程序代码包含runApp()，请将其删除。

如果我在 R markdown 代码块之外运行代码，我可以让应用程序加载得很好（即使在 Rstudio 的同一会话中）。

我确实注意到runExample代码使用runApp而不是shinyapp.

是该我的问题的根源在哪里？或者我可能做错了什么？

我的代码：

---
title: "Shiny Not Working"
output: html_document
runtime: shiny
---

```{r, eval=TRUE,chunk_title='Shiny_Example'}
library(shiny)
runExample("01_hello")
```

带有堆栈跟踪的完整错误：

Warning: Error in runApp: Can't call `runApp()` from within `runApp()`. 
If your application code contains `runApp()`, …

我在 Shiny 的 UI 列中有两个fluidRows。

我希望顶行上方有一点空间，但我想消除行之间的任何空间。

• 我已经尝试过div, tags, 和各种各样的样式参数，比如margin: 0pxand padding: 0px ...，但我无法得到相应的间距。

  • 下面是一个例子：

    ui <- fluidPage(
    fluidRow(
    column(1,offset=0,
           div(style = "font-size: 10px; padding: 14px 0px; margin:0%",
               fluidRow(
                 sliderInput(inputId = "sizeSlide", label = "Sizing", value = 10, min = 1,max = 20)
               )
           ),
           div(style = "font-size: 10px; padding: 0px 0px; margin:0px", 
               fluidRow(
                 radioButtons(inputId = "greatORless", label = "DBH Limiter", choices = c(">", "<"), selected = ">")
               )                                      
           )
        )
      )
    ) …

    Run Code Online (Sandbox Code Playgroud)