小编Big*_*ist的帖子

我正在为TinyMCE编写一个插件,并且在检测iframe中的点击事件时遇到问题.

从我的搜索中我得出了这个:

正在加载iframe:

<iframe src='resource/file.php?mode=tinymce' id='filecontainer'></iframe>

iframe中的HTML:

<input type=button id=choose_pics value='Choose'>

jQuery的:

//Detect click
$("#filecontainer").contents().find("#choose_pic").click(function(){
    //do something      
}); 

我见过的其他帖子通常有不同域名的问题(这没有).但是,仍然没有发现事件.

可以这样做吗？

我有一个带有 的操作按钮id=do，当单击操作按钮时，我希望更改名为 rhm_clic 的输入值。我现在有这个。

 observeEvent(input$do,{
   input$rhm_clic<-NULL
 })

我遇到了这篇文章:来自Matt Dowle的http://r.789695.n4.nabble.com/speeding-up-perception-tp3640920p3646694.html,早些时候讨论过一些问题？data.table包的实施思路.

他使用以下代码:

x = list(a = 1:10000, b = 1:10000) 
class(x) = "newclass" 
"[<-.newclass" = function(x,i,j,value) x      # i.e. do nothing 
tracemem(x)
x[1, 2] = 42L 

具体来说,我在看:

"[<-.newclass" = function(x,i,j,value) x

我试图了解那里做了什么以及如何使用这种表示法.

它看起来像我:

• 我是行索引
• j是列索引
• value是要分配的值
• x是正在考虑的对象

因此,我最好的猜测是我为现场修改定义了一个自定义函数(对于给定的类).

[<-.newclass 是类newclass的类修改.

了解发生的情况:通常以下代码应返回错误:

x = list(a = 1:10000, b = 1:10000) 
x[1, 2] = 42L 

所以我想示例代码没有任何实际用途.

尝试使用逻辑:

一个简单的无意义尝试就是将要插入的值平方:

x[i, j] <- value^2

全面尝试:

> x = matrix(1:9, 3, 3)
> class(x) = "newclass"
> "[<-.newclass" = function(x, …

在Shiny中使用hr()时,通常可以在UI元素下制作水平规则fluidRow(),但不能sideBarPanel()在文本下面进行.我如何制作横向规则或类似的其他内容来划分侧边栏中的文本和UI元素？

我想做一些有点棘手的事情,我希望有人可以帮助我.

我想在数据表中添加selectInput内容.如果我启动应用程序,我看到输入col_1,col_2..已经很好地连接到数据表(您可以切换到a,b或c)

但 如果我更新的数据集(从iris至mtcars)的连接在输入和数据表之间丢失.现在,如果您更改selectinput日志,则不显示修改.我该如何保留链接？

我做了一些测试shiny.bindAll(),shiny.unbindAll()但没有成功.

有任何想法吗？

请看看该应用程序:

library(shiny)
library(DT)
library(shinyjs)
library(purrr)

    ui <- fluidPage(
      selectInput("data","choose data",choices = c("iris","mtcars")),
      DT::DTOutput("tableau"),
      verbatimTextOutput("log")
    )

    server <- function(input, output, session) {
      dataset <- reactive({
        switch (input$data,
          "iris" = iris,
          "mtcars" = mtcars
        )
      })

      output$tableau <- DT::renderDT({
        col_names<-
          seq_along(dataset()) %>% 
        map(~selectInput(
          inputId = paste0("col_",.x),
          label = NULL, 
          choices = c("a","b","c"))) %>% 
          map(as.character)

        DT::datatable(dataset(),
                  options = list(ordering …

这个问题是如何在Shiny中保存传单地图以及在Shiny中保存传单地图的问题的后续问题.

我添加了一个工具栏,用于addDrawToolbar在leaflet.extras包中的地图上绘制形状/点.这可以让用户以交互方式绘制线条,形状...... 最后,我希望能够将绘制的形状保存为pdf或png.

我编写了以下代码,使用了问题的答案:如何在Shiny中保存传单地图.但它无助于实现我的目标.

有没有人可以帮助我？

library(shiny)
library(leaflet)
library(leaflet.extras)
library(mapview)


ui <- fluidPage(

    leafletOutput("map"),
    br(),
    downloadButton("download_pdf", "Download .pdf")
)

server <- function(input, output, session) {


     foundational_map <- reactive({

        leaflet() %>% 

          addTiles()%>%

          addMeasure(
              primaryLengthUnit = "kilometers",
              secondaryAreaUnit = FALSE
           )%>%

          addDrawToolbar(
               targetGroup='draw',

               editOptions = editToolbarOptions(selectedPathOptions = 
                                       selectedPathOptions()),

                polylineOptions = filterNULL(list(shapeOptions = 
                                        drawShapeOptions(lineJoin = "round", 
                                        weight = 3))),

                circleOptions = filterNULL(list(shapeOptions = 
                                      drawShapeOptions(),
                                      repeatMode = F,
                                      showRadius = T,
                                      metric = T,
                                      feet …

我在R中有以下两个函数:

exs.time.start<-function(){
  exs.time<<-proc.time()[3]
  return(invisible(NULL))
}

exs.time.stop<-function(restartTimer=TRUE){
  if(exists('exs.time')==FALSE){
    stop("ERROR: exs.time was not found! Start timer with ex.time.start")
  }
  returnValue=proc.time()[3]-exs.time
  if(restartTimer==TRUE){
    exs.time<<-proc.time()[3]
  }
  message(paste0("INFO: Elapsed time ",returnValue, " seconds!"))
  return(invisible(returnValue))
}

该函数使用我调用函数时的CPU时间exs.time.start创建一个全局变量(exs.time).

函数exs.time.stop访问全局变量并返回执行exs.time.start和之间的时间exs.time.stop.

我的目标是用这两个函数创建一个包IR.如何将全局变量(exs.time)定义为对用户不可见的变量,因此他无法在R全局环境中看到此变量？

我可以将此变量定义为R包环境/命名空间内的"隐藏"全局变量吗？

这是我第一次使用包,所以我不确切知道如何在定义包时很好地使用命名空间文件.我正在使用R Studio和Roxygen2创建我的包.

任何帮助或建议都会很棒!

也许我错过了什么,但如果下面的代码是我的Rmd文件的内容

```{r}
library(reticulate)
use_virtualenv("r-reticulate")
py_available(TRUE)
```
```{python}
a = 7
print(a)
```
```{r}
py$a
```

当我编织文件时,最后一个块的输出是7(正如预期的那样).另一方面,单击Rstudio中的"全部运行"按钮(或逐个运行块),将导致NULL最后一个块.

与R笔记本示例相比,似乎flights在python块中分配内容应该py$flights可用于R,但事实并非如此.

问题:

1. 有没有办法从R访问一个先前运行过的Python块中创建的变量(不是编织)？如何"导出"R在python块中创建的变量？
2. 什么是一个很好的参考,以了解当我点击Rmarkdown文件的python块中的运行按钮时会发生什么？

编辑:好的,所以在看到第一个答案后,我确实更新了knitr和rmarkdown到最新版本,但仍然有同样的问题.我添加py_available(TRUE)到我的文件中以确保它已被初始化,仍然,最后一个块结果在7编织时,但是逐个运行块导致

> py$a
Error in py_get_attr_impl(x, name, silent) : 
  AttributeError: 'module' object has no attribute 'a'

问题是:a在Python py$a环境中为python块分配值没有做任何事情.也许R和python之间的这个"共享"环境不是这个包应该如何工作的？另外,还有一些额外的信息

> py_config()
python:         /usr/bin/python
libpython:      /usr/lib/python2.7/config-x86_64-linux-gnu/libpython2.7.so
pythonhome:     /usr:/usr
version:        2.7.14 (default, Sep 23 2017, 22:06:14)  [GCC 7.2.0]
numpy:          /usr/lib/python2.7/dist-packages/numpy
numpy_version:  1.12.1

python versions found: 
 /usr/bin/python
 /usr/bin/python3

我正在使用Rshinydashboard,当我尝试使用includeHTML在我的应用程序中包含一个html文档时,我遇到了一个问题.一旦menuItems&menSubItems被展开,它们就无法收回.我已经探索了其他解决方案,但没有找到.如果你有任何想法可能是什么问题或有另一种方式在应用程序中包含HTML报告,我将不胜感激.如果可以,请参阅下面的代码并提供帮助!

创建一个RMD文件来创建一个html报告(如果你没有一个人躺着)

---
title: "test"
output: html_document
---
## Test HTML Document
This is just a test.

构建测试html报告

# Build Test HTML file
rmarkdown::render(
  input = "~/test.rmd",
  output_format = "html_document",
  output_file = file.path(tempdir(), "Test.html")
)

构建测试应用程序

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      id = "sidebarmenu",
      menuItem(
        "A", tabName = "a",  icon = icon("group", lib="font-awesome"),
        menuSubItem("AA", tabName = "aa"),
        conditionalPanel(
          "input.sidebarmenu === 'aa'",
          sliderInput("b", "Under sidebarMenu", 1, 100, 50)
        ),
        menuSubItem("AB", tabName = "ab")
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = …

如何将图像复制到剪贴板，然后直接将其插入/粘贴到 .Rmd 文件中？

另见此处：https : //github.com/rstudio/rstudio/issues/4038

剧透：我想发布这个问题，然后决定自己试一试。（提出问题并自己回答有点奇怪，但是当我阅读本文时，我感到有足够的动力:) https://stackoverflow.com/help/self-answer）

到目前为止，我通过 python 得到了一个解决方法（见下面的答案），但它有效并为我节省了一些愚蠢的工作。所以我决定我可能不是唯一一个在谷歌上搜索这个问题并分享我的结果的人。