小编Bri*_*ker的帖子

我正在制作两张图.

现在他们出现在两个不同的面板(标签)

ui.r
mainPanel(
      tabsetPanel(
        tabPanel("Summary", dataTableOutput("dis")),
        tabPanel("Plot", plotOutput("plot1")),
        tabPanel("Plot", plotOutput("plot2"))
      )
    )

server.r

output$plot1 <- renderPlot({
    Plot1
  })


output$plot2 <- renderPlot({
    Plot1
 })

我想知道如何在同一个面板中一个接一个地显示这些图形,而不是像现在这样的两个不同的面板.谢谢大家的帮助.

我正在使用Flexdashboard设计一个UI,一些textinput框超出常规浏览器窗口,我vertical_layout: scroll在代码中添加了一行,但我猜这还不够？所以我的问题是如何启用垂直滚动功能,如下图所示.？非常感谢任何提示或指示.

这是我下面的代码

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    smooth_scroll: true
    runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
```

     Inputs {.sidebar}
-----------------------------------------------------------------------

  ```{r}
library(shiny)
library(shinyjs)


shinyjs::useShinyjs()
#tags$hr(),
shinyjs::disabled(textInput("id", "Id", "0"))
textInput("X1", "X1", "")
textInput("X2", "X2", "")
textInput("X3", "X3", "")
textInput("X4", "X4", "")
textInput("X5", "X5", "")
textInput("X6", "X6", "")
textInput("X7", "X7", "")
textInput("X8", "X8", "")
textInput("X9", "X9", "")
textInput("X10", "X10", "")
textInput("X11", "X11", "")
textInput("X12", "X12", "")

textInput("X13", "X13", "")
textInput("X14", "X14", "")
textInput("X15", "X15", "") …

我的数据框中有一个日期列，其中包含一些 NA 值。我正在尝试使用该命令将此 NA 值替换为空白，df$FirstDate[is.na(df$FirstDate)] <- " "
但出现错误

charToDate(x) 中的错误：字符串不是标准的明确格式

不确定如何修复此错误。非常感谢有关此主题的任何帮助。

这是dput日期列的输出

df = structure(c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), class = "Date")

我试图删除[start section id="20107"]数据框中列的每个单元格中出现的字符串.

我试过df1$Col1<- gsub("[start section id="20107"]", "", df1$Col1)但是我得到了一个错误unexpected numeric constant in df1$Col1<- gsub("[start section id="20107",不知道我还能尝试什么,任何帮助都是值得的.

[start section id="20107"]

(11-Feb-2013 13:22 DK04)
#1 Preventive exam
#2 Mild hyperlipidemia
#3 Hyperglycemia
#4 Peripheral neuropathy