小编Dav*_*era的帖子

我有一个关于svycontrast()使用survey包调用函数中的变量的问题。我正在尝试针对固定参数自动进行一些对比。我可以这样做没有问题：

library(survey)    
data(api)

dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)

diff <- svyby(~enroll, by = ~cnum, dclus1, na.rm.all = FALSE, svymean, covmat = T, vartype = "se")

parameter <- 550

svycontrast(diff, quote(`1` - parameter))

#           nlcon SE
# contrast 2.8182  0

但是，我花了几个小时试图弄清楚如何调用rowname“1”，但是通过不同的方法，我不断收到以下错误消息：

row <- quote(1)

svycontrast(diff, quote(row - parameter))
Error in row - parameter : non-numeric argument to binary operator

任何帮助将不胜感激。

我正在尝试使用R(包rvest)在网页上刮取表格数据.要做到这一点,数据需要在html源文件中(rvest显然在那里寻找它),但在这种情况下它不是.

但是,数据元素显示在"检查"面板的"元素"视图中:

源文件显示一个空表:

为什么数据显示在inspect元素上而不是源文件上？如何以html格式访问表数据？如果我无法通过HTML访问如何更改我的网络抓取策略？

*网页是 https://si3.bcentral.cl/siete/secure/cuadros/cuadro_dinamico.aspx?idMenu=IPC_VAR_MEN1_HIST&codCuadro=IPC_VAR_MEN1_HIST

源文件: view-source:https://si3.bcentral.cl/siete/secure/cuadros/cuadro_dinamico.aspx？idMenu = IPC_VAR_MEN1_HIST&codCuadro = IPC_VAR_MEN1_HIST

编辑:赞赏使用R的解决方案

我有一个关于 rmarkdown 的 ioslides 演示。我想使用 <kbd> 标签来制作键盘外观的按键。值得注意的是，我希望它位于代码块之外。在文档中，我写道：

<kbd>CTRL</kbd> + <kbd>SHIFT</kbd> + <kbd>ENTER</kbd>

它应该看起来像CTRL+ SHIFT+ ENTER，但它呈现为没有标签：

CTRL + SHIFT + 输入

是否有解决方法可以在 rmarkdown 文档上使用此标签，特别是在 ioslides 演示文稿上？

这是一个最小的可重现示例：

---
output: ioslides_presentation
---

## Keyboard tag problem
This doesn't render properly:
<kbd>CTRL</kbd> + <kbd>SHIFT</kbd> + <kbd>ENTER</kbd>

假设我有以下用户界面：

ui <- fluidPage(
checkboxGroupInput("checkbox", "", choices = colnames(mtcars)),
tableOutput("table")
)

我想渲染一个表格，mtcars其中至少选择了一个复选框选项。为此，我遇到了req()，但我看不出它与if语句有什么不同，即使阅读有关此函数的文档，它的定义也非常接近if语句的作用：

在进行计算或操作之前，请确保值可用（“真实”-请参阅详细信息）。如果任何给定的值不真实，则通过引发“静默”异常（Shiny 未记录，也不显示在 Shiny 应用程序的 UI 中）来停止操作。

那么，这个表格是如何呈现的：

server <- function(input, output) {

    output$table <- renderTable({
    req(input$checkbox)
    mtcars %>% select(input$checkbox)
    })
}

shinyApp(ui, server)

和这个不一样？：

server <- function(input, output) {

    output$table <- renderTable({
    if(!is.null(input$checkbox))
    mtcars %>% select(input$checkbox)
    })
}

shinyApp(ui, server)

TL;DR：除了你如何写之外，它req()与if陈述有什么不同？

我想在网页页脚添加云表情符号，但显然该config.toml文件不支持表情符号

 [params]
      footerText   = ":cloud: David Jorquera - 2020"

...呈现为文本。

如何才能做到这一点？