小编M.Q*_*sim的帖子

我用Knit HTML收到以下错误:

Stack space overflow: current size 16777216 bytes.
Use `+RTS -Ksize -RTS' to increase it.
Error: pandoc document conversion failed with error 2

我试图通过在markdown脚本的顶部添加以下行来解决此问题:

 ```r
pandoc +RTS -K64m -RTS -f rst -
```

我只是想知道代码是否正确或我在哪里放置代码才能使其工作？

可能重复:
删除列R数据框

假设,我有以下数据帧,并希望删除列"dataB"什么是R命令？

y <- data.frame(k1=c(101,102,103,104,105,106,107,108),
                B=c(11,12,13,NA,NA,16,17,18), 
                dataB=11:18) 

无论如何,根据某个变量的值改变传单标记的颜色.例如,在下面的地图中,我希望根据mag变量指定标记颜色:

library(leaflet)

data(quakes)

# Show first 20 rows from the `quakes` dataset
leaflet(data = quakes[1:20,]) %>% addTiles() %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag))

R大师,

我正在努力为Rmarkdown设计一个信头模板,用于大规模的邮件合并项目.

理想情况下我需要的是以下内容:

问题是如果标题可以在YAML中定义？代码可能如下所示:

---
output: 
  pdf_document:
    fig_caption: false

logo: logo.png
institute: UNIVERSITY OF CALIFORNIA
name: Prof. Jones
address: Mathematics Search Committee
         Department of Mathematics
         University of California
         Berkeley, California 12345
email: pj@uc.ac

latex_engine: pdflatex
fontfamily: mathpazo
fontsize: 11pt
# spacing: double
endnote: no
---

我正在努力在多个字段上创建一组动态数据过滤器,在字段之间可选择AND/OR连接,如下所示:

这是我的示例代码.我只是不确定如何使过滤器连接(AND/OR)正常工作.

library(shiny)
library(dplyr)
library(DT)

data("baseball")

Year = unique(baseball$year)
Team = unique(baseball$team)
Stint = unique(baseball$stint)

runApp(list(ui = fluidPage(
  titlePanel("Summary"),

  sidebarLayout(
    sidebarPanel(

      selectInput("year", label = "Year", choices = Year, selected = NULL, multiple = TRUE),
      selectInput("filter_join1", label = "", choices = c("OR","AND")),
      selectInput("team", label = "Team", choices = Team, selected = NULL, multiple = TRUE),
      selectInput("filter_join2", label = "", choices = c("OR","AND")),
      selectInput("stint", label = "Stint", choices = Stint, selected = NULL, multiple = TRUE)
    ),

    mainPanel(
      DT::dataTableOutput("table")
    )
  )
), …

伟大的 R 社区，我只是想知道是否可以通过按下操作按钮以模式显示 DT::dataTableOutput。例如，数据表输出如下。

下面是一些代码：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(

  dashboardHeader(),
  ## Sidebar content
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))
    )
  ),

  ## Body content
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "dashboard",
              actionButton("showTable", "Show Table", icon = icon("table"))
              ##fluidRow( DT::dataTableOutput('tbl') )
              ## SOME CODE TO SHOW DATA TABLE IN MODAL
      )
    )
  )
)

server <- function(input, output) { 
  output$tbl = DT::renderDataTable(
    iris, options = list(lengthChange = FALSE) 
  )
}

shinyApp(ui, server)

我正在努力将多行闪亮通知放在页面中间。然而，没有像 \r; 这样直观的换行命令。\n 或者
根本不工作。我想知道有什么解决方法可以解决这个问题？

这是最小的工作示例：

library(shiny)

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(HTML(".shiny-notification { position:fixed; top: calc(300px);; left: calc(15px);; }" ))),

    textInput("txt", "Content", "Lorem ipsum dolor sit amet, consectetur adipiscing elit, 
              sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. 
              Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut 
              aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in 
              voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur 
              sint occaecat cupidatat non …

我正在努力将标记数据的值和标签提取为 R 中的 data.frame 。在下面的示例中，我想提取value和label的两列数据框。

非常感谢您的时间和帮助。

download.file("http://mqasim.me/temp/Workingdata.RData", "Workingdata11.RData")
load("Workingdata11.RData")

library(labelled)
df <- wvs2i$V2

str(df)
Class 'labelled'  atomic [1:24558] 32 32 32 32 32 32 32 32 32 32 ...
  ..- attr(*, "label")= chr "Country/region"
  ..- attr(*, "format.stata")= chr "%8.0g"
  ..- attr(*, "labels")= Named num [1:197] -5 -4 -3 -2 -1 4 8 12 16 20 ...
  .. ..- attr(*, "names")= chr [1:197] "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...

head(df)

<Labelled double> …

有什么方法可以使用正确的颜色和图标为addAwesomeMarkers函数创建传单图例。例如，在下面的地图中，我想创建代码下给出的图例。

library(leaflet)

IconSet <- awesomeIconList(
  ship   = makeAwesomeIcon(icon= 'ship', markerColor = 'green', iconColor = 'white', library = "fa"),
  pirate = makeAwesomeIcon(icon= 'fire', markerColor = 'blue', iconColor = 'white', library = "fa")
)

# Some fake data
df <- sp::SpatialPointsDataFrame(
  cbind(
    (runif(20) - .5) * 10 - 90.620130,  # lng
    (runif(20) - .5) * 3.8 + 25.638077  # lat
  ),
  data.frame(type = factor(
    ifelse(runif(20) > 0.75, "pirate", "ship"),
    c("ship", "pirate")
  ))
)

leaflet(df) %>% addTiles() %>%
  # Select from oceanIcons based …

R大师,

我想知道是否有可能在RIMdown文档中将YAML中的PDF输出标题保持对齐.

还可以在标题上方(标题中)添加徽标吗？

---
output: 
  pdf_document:
    fig_caption: false

#title: "Multi pricing report"
latex_engine: xelatex
fontfamily: mathpazo
fontsize: 11pt
# spacing: double
endnote: no
---

您的时间和精力回答非常感谢.