小编Vin*_*der的帖子

我尝试使用 Docker 安装 Rstudio-connect。我尝试使用 ubuntu、centos 和 Rocker/tidyverse 基本图像。没有成功...

这是我制作的 Dockerfile。

FROM ubuntu
RUN apt-get update
RUN apt-get install -y gdebi-core
RUN apt-get install -y build-essential libcurl4-gnutls-dev libxml2-dev libssl-dev
RUN apt-get install -y r-base
RUN apt-get autoclean
RUN apt-get clean
RUN apt-get install -y texlive-full
RUN apt-get install -y libgmp10-dev  libgsl0-dev    libnetcdf-dev   netcdf-bin  libdigest-hmac-perl  libgmp-dev   libgmp3-dev  libgl1-mesa-dev   libglu1-$
RUN apt-get install -y  net-tools
RUN apt-get install -y procps

RUN gdebi -n rstudio-connect.deb
COPY rstudio-connect-*-amd64.deb rstudio-connect.deb
EXPOSE 3939

使用此容器，我无法运行 rstudio connect。我有这个错误：“没有检测到已知的初始化系统。” 从这个脚本 …

删除一些元素后,如何清除"输入" (下面的示例中的verbatimTextOutput("摘要")).我尝试了一些shiny.unbindAll没有成功的东西.专职人员removeUI不做这项工作.请看一下这个例子:

library(shiny)

ui <- fluidPage(

    actionButton('insertBtn', 'Insert'), 
    actionButton('removeBtn', 'Remove'), 
    verbatimTextOutput("summary"),
    tags$div(id = 'placeholder') 

)

server <- function(input, output, session) {
  ## keep track of elements inserted and not yet removed
  inserted <- c()

  observeEvent(input$insertBtn, {
    btn <- input$insertBtn
    id <- paste0('txt', btn)
    insertUI(
      selector = '#placeholder',
      ## wrap element in a div with id for ease of removal
      ui = tags$div(
        actionButton(inputId = paste0("truc",id),label = paste0("truc",id)), 
        id = id
      )
    )
    inserted <<- c(id, …

我创建了一个名为的类time.这是一个虚拟的例子,它以秒为单位返回.这很好用,但该print.time函数不在tbl中使用.

任何ide我如何调整tbl内的显示？

问候

请看这里的代表

library(dplyr)
#> 
#> Attachement du package : 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
as.time <- function(x){
  class(x)<-"time"
  x
}
print.time<-function(x,...){
  print.default(unclass(x/60)) 
  invisible(x)
}


60 %>% as.time() %>% print()
#> [1] 1


tribble(~a,~time,
        "a",123,
        "b",234,
        "c",456
) %>% mutate(time = as.time(time))
#> # A tibble: 3 x 2
#>   a      time
#> …

我正在开发一个 Rstudio 插件，我需要切换到另一个 Rstudio 项目。

在 Windows 上我可以使用browseURL(".../project.Rproj")，但它会打开一个新的 Rstudio 会话。在 Rstudio 服务器上，此指令只需在浏览器中打开 project.Rproj 内容文件，而不是打开项目。

我想我需要类似的东西rstudioapi::open_project(...)

任何想法？

我尝试使用R重现一些SAS输出.我想重现的方法是:

使用混合模型重复测量因子时间的方差的双向分析(协方差矩阵= CS,估计方法= REML)

AIC看起来很好看...我想知道是否有人知道SAS使用的AIC公式......

主要的SAS输出是:

如果loglik相同,Anova表是相同的,但不是AIC(和BIC)事件.

这就是我用R做的:

library(nlme)
dataset_melt <- structure(list(Groupe = c("A", "A", "A", "A", "A", "B", "B", 
"B", "B", "B", "C", "C", "C", "C", "C", "A", "A", "A", "A", "A", 
"B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "A", "A", "A", 
"A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "A", 
"A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C", 
"C", "A", "A", "A", "A", "A", "B", "B", …

里面rocker/tidyverse:3.3.2即使我安装 r-cran-rjava r-cran-nloptr没有错误，无论是包装rJAva，并nloptr在R缺少任何想法，为什么？

看下面的Docker文件：

FROM rocker/tidyverse:3.3.2

RUN printf "deb http://archive.debian.org/debian/ jessie main\ndeb-src http://archive.debian.org/debian/ jessie main\ndeb http://security.debian.org jessie/updates main\ndeb-src http://security.debian.org jessie/updates main" > /etc/apt/sources.list

RUN apt-get update && apt-get install -y --no-install-recommends apt-utils

RUN apt-get -y update && apt-get install -y \
   default-jdk  r-cran-rjava  r-cran-nloptr libssh2-1-dev 
RUN R -e "library('rJava')" # Error in library("rJava") : there is no package called ‘rJava’
RUN R -e "library('nloptr')" # Error in library("nloptr") : there is no package …

我有这样的数据集：

comb<-data.frame(nom=c("A","B","C","A","B","C"),type=c(rep("1",3),rep("2",3)),val=c(1,3,2,3,2,2))

我想得到这个结果ggplot2：

但我只有这个

ggplot()+    geom_bar(data=comb,aes(x=nom, y=val,fill=type),stat='identity',position='dodge')

你有什么解决办法吗？