小编use*_*875的帖子

我在Oracle中有一个TIMESTAMP(6)字段,我需要从那时起删除毫秒组件.

比如我有

10/20/2014 10:34:06.356000 AM

我想删除毫秒,以便我拥有

10/20/2014 10:34:06 AM

你知道最好的方法吗？

谢谢!

我有下面的降价文件.如果参数"P"不等于A,我想隐藏第2页.

所以结果是如果参数P!= A那么只产生3页.

这有可能吗？

---
title: "Untitled"
output: 
  pdf_document:
    toc: yes
params:
  P: A
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

\newpage


## PAGE2

this is text for page 2

this is text for page 2

```{r cars}
summary(cars)
```

\newpage


## PAGE3

this is text for page 3

```{r pressure, echo=FALSE}
plot(pressure)
```

\newpage 

## PAGE4

this is text for page 4

我有一个看起来像这样的数据框"test".没有N/A或inf.所有日子都填充了数据.

head(test)

  businessdate    strategy 1          Strategy 2
1   2014-01-01  0.000000000          0.0000000
2   2014-01-02  0.010058520         -0.3565398
3   2014-01-03  0.000707818          0.2622737
4   2014-01-06 -0.019879142         -0.2891257
5   2014-01-07 -0.019929352         -0.2271491
6   2014-01-08  0.027108810         -0.7827856

当我看到那些列的类时,我看到:

> class(test[,1])
[1] "POSIXct" "POSIXt" 
> class(test[,2])
[1] "numeric"
> class(test[,3])
[1] "numeric"

因此,我认为我可以将其转换为xts对象并使用性能分析.在这里我把它变成一个xts:

test_xts<- xts(test, order.by= test[,1])

现在我尝试使用性能分析包并收到错误:

charts.PerformanceSummary(test_xts,geometric= TRUE,cex.axis=1.5)

我得到的错误是:

 Error in na.omit.xts(x) : unsupported type

知道发生了什么以及如何解决它？

我有一个阴谋

如何格式化 x 和 y 轴，使它们不是科学符号？

谢谢你。

我目前正在使用 Shinydashboard，但我希望有不同的 sidbar 菜单与主体中的内容相关联。这可以通过闪亮的仪表板实现吗？

例如：

我想要这样的东西 https://gallery.shinyapps.io/CDCPlot/

看看当您单击导航栏选项时，侧边栏菜单和正文如何变化。

在shinydashboad中这可能吗？我喜欢 Shinydashboard 的外观和感觉，宁愿不回到闪亮的状态。

底层代码在这里：https : //github.com/NLMichaud/WeeklyCDCPlot/blob/master/ui.R

并使用 tabpanels 和导航栏。在 Shinydashboard 中有类似的东西吗？

有代码的例子吗？

谢谢！

我想创建一个带有导航栏的闪亮应用程序，但也能够使用流体行（）和流体列（）在页面上配置布局。

我在这里阅读了“导航栏页面”和“流体网格系统”区域http://shiny.rstudio.com/articles/layout-guide.html 并在流体网格系统下它说“要创建基于流体系统的布局你使用fluidPage()函数。” 所以这是我的例子：

服务器文件

shinyUI(navbarPage("",
                   tabPanel("test",
                            #THIS IS THE SIDEBAR INPUT PANEL
                            column(2,wellPanel(
                              selectInput("x", "x:", c(5, 10,30,60),selected = 5)
                            )),

                            #THIS IS THE MAIN CONTENT
                            column(10, 
                                   fluidRow( plotOutput("plot3")) #,

                                              #fluidRow( 
                                              #   column(width=5, plotOutput("plot2")),
                                               #  column(width=5, plotOutput("plot3"))      
                                             # )                                         
                            )#end of main body columns 
                   )#end tab panel

                                      ,
                                      tabPanel("summary",
                                               verbatimTextOutput("summary")
                                      ),
                                      navbarMenu("More Info",
                                                 tabPanel("Test1",
                                                          dataTableOutput("table")
                                                 )
                                      )
))


ui.r

library(shinydashboard)
library(reshape)
library(quantmod)
library(ggplot2)
library(reshape2)
library(scales)

shinyServer(function(input, output, session) {
  output$plot1 <- renderPlot({
    #plot(cars, type=input$plotType)
    plot(c(1))
  })

  output$plot2 <- renderPlot({ …

我有这个数据框,dat和dplyr用于添加"NextStatTime"字段,该字段是ID结束时间之后的开始时间,"持续时间"是从结束时间到下一个开始时间的时间. ID.

数据如下所示:

     dat = data.frame(ID= c(1,1,1,2,3,3),
                      NumberInSequence= c(1,3,4,1,1,2),
                      StartTime = as.POSIXct(c("2016-01-01 05:52:05 GMT","2016-01-01 05:52:11 GMT","2016-01-01 05:52:16 GMT","2016-01-01 05:40:05 GMT","2016-01-01 06:12:13 GMT","2016-01-01 07:12:26 GMT"))  ,
                      EndTime = as.POSIXct(c("2016-01-01 05:52:10 GMT","2016-01-01 05:52:16 GMT","2016-01-01 05:52:30 GMT","2016-01-01 05:46:05 GMT","2016-01-01 06:12:25 GMT","2016-01-01 08:00:00 GMT")  )
                       )

    dat
    dat %>% group_by(ID) %>% mutate(NextStartTime = lead(StartTime), duration = as.numeric(difftime(NextStartTime, EndTime, units = 's')))

  ID NumberInSequence           StartTime             EndTime       NextStartTime duration
  <dbl>            <dbl>              <time>              <time>              <time>    <dbl>
1     1                1 2016-01-01 05:52:05 2016-01-01 05:52:10 2016-01-01 05:52:11        1
2 …

以下是“test_param.Rmd”文件中的一些 R markdown 代码：

---
output: pdf_document
params:
  number: "1"
title: `r params$number`
---

```{r setup, include=TRUE}

knitr::opts_chunk$set(echo = TRUE)

```

```{r one, include = TRUE}

i = 2
#data = data.frame(x = c(1,2,3))

#for(i in 1:dim(data)[1]){

 # plot(i*1000)

#}

```

`r params$number`

此处使用 .r 文件调用：

library(rmarkdown)

rmarkdown::render("C://Users//me//Desktop//test_param.Rmd", 
                  params = list(number= "1"))

当我运行 .r 时出现此错误

Error in yaml::yaml.load(enc2utf8(string), ...) : 
  Scanner error: while scanning for the next token at line 4, column 8found character that cannot start any token at …

我正在使用渲染生成 pdf：

rmarkdown::render("C://Users//myrmd.Rmd")

可以，但是当我添加输出文件和目录时，它不起作用：

rmarkdown::render("C://Users//myrmd.Rmd",
output_file="C://...//myfolder//mypdf.pdf),
output_dir="C://.....//myfolder))

这将返回一个错误错误： pandoc document conversion failed with error 43

你能告诉这里是什么问题吗？

我有 rmarkdown v1.8

使用fancyhdr为2+页创建了页眉，但是如何使相同的页眉也出现在首页上？

这是rmarkdown：

---
title: "Untitled"
classoption: landscape
output: 
  pdf_document:
    number_sections: false
    dev: pdf
    keep_tex: false
    toc: yes
header-includes:
- \usepackage{fancyhdr}
- \pagestyle{fancy}
- \fancyhead[C]{center text}
- \fancyhead[R]{right text}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that …