douerw的博客

前提若使用传统方法RUN R -e "install.packages('包')"来安装R包，安装失败后不会有任何提示且继续进行下一步，执行镜像后出现报错不太友好。方法安装后不退出（无法判断是否安装成功）普通包添加指定镜像RUN R -e "install.packages('包'), repos='http://cran.rstudio.com/'" #官方源RUN R -e "install.packages('包'), repos='https://mirrors.tu

代码write.table(变量名, gzfile("文件名.csv.gz"))参考How do I use compressed data with R?

代码venn.plot <- VennDiagram::venn.diagram( …… imagetype = "svg", # 这个应该不影响 filename = NULL, # 这个不知道影不影响 ……)grid.draw(venn.plot)参考venn.diagram如何保存pdf格式文件VennDiagram绘制韦恩图Package ‘VennDiagram’...

一行搞定：datatable(文件名,options = list(scrollX = TRUE))shiny中的简化版代码框架：#server端output$变量名 <- renderDT({ datatable(文件名, options = list(scrollX = TRUE))} })参考时间太久记不清了……并且没有搜到直接的解决方法，好像是在别的项目源码里或者stack overflow的代码里搜到的。重点是用于试错，看到感觉能解决该问题

一行搞定setwd(dirname(rstudioapi::getActiveDocumentContext()$path))参考时间太久远记不清了，好像是在经管之家论坛的一堆代码里找到的。

遇到的问题运行如下代码时，会报错 Error in save: objects ‘XXX’ not found（简化版便于理解，完整代码等下一个版本传了github再来贴链接）server端： prePquant <- reactiveValues(tmp = NULL) observeEvent(判断条件, { …… tmp <- 赋值 …… }) observeEvent(判断条件, {

版本信息在终端输入lsb_release -a查看ubuntu版本信息：Distributor ID: UbuntuDescription: Ubuntu 20.04.2 LTSRelease: 20.04Codename: focal安装R请参考这篇文章。安装R Studio在ubuntu中输入以下命令：sudo apt install gdebi-corewget https://download2.rstudio.org/server/b

遇到的问题在部署shiny app时遇到报错：Unable to determine package source for Bioconductor package XXX (通过Bioc下的) : Repository must be specified解决方法官方附上的原因是因为你的repos中没有Bionconductor：(可能不是必要的)将你的R包和Bioc包都更新到最新版本。更新R可以使用installr包中的updateR()函数更新Bioc包可以看看别人的教程，我

遇到的问题在Ubuntu 20.04 LTS环境中，调用conda一个已安装R、python、pandas包的env。程序名.py中第一行为：import pandas as pd随后在R中输入：library(reticulate)py_run_file('程序名.py')报错信息为：Error in py_run_file_impl(file, local, convert) : ModuleNotFoundError: No module named 'pandas'Det

版本信息在终端输入lsb_release -a查看ubuntu版本信息：Distributor ID: UbuntuDescription: Ubuntu 20.04.2 LTSRelease: 20.04Codename: focal安装输入以下代码将旧版本的R删除sudo apt-get --purge remove r-basesudo apt-get --purge remove r-base-coresudo apt-get --pu

遇到的问题原先我的app里有一张图片是能正常显示的：代码如下：ui <- dashboardPage( dashboardSidebar( conditionalPanel(condition = , br(), sidebarMenu( menuItem("Assign metadata",

期望达到的效果我希望能在 shiny 界面中显示如下效果（读取XML文件后，每行单独输出文本）：尝试为此我查阅了众多资料，尝试了很多代码：ui端：server端：可是结果不尽人意，（差的结果都没截图，感兴趣的可以自己试试这些函数组合）使用verbatimTextOutput() & readLines() & RenderText()，输出的结果是一行文本，阅读效果很差；使用textOutput() & readLines() & RenderText(

遇到的问题shiny新手，在shiny app查看生成的图片时，找不到我的图在哪。（牛爷爷：我的图图呢.jpg）传入的数据没有任何问题，新开了一个test.R测试，能在plot窗口看见图：而shiny的ui、server代码我也自认为没有语法问题，因为同app的另一个tab能生成图片：百思不得其解，在网上搜了一下都找不到类似的问题，很愁。br()解决方法纯属灵光乍现，显示不出图片的renderplot代码如下：if(normalizaiton_title_name == "Not no

遇到的问题在shiny中上传文件时出现了报错，如下图：看了一下文件大小有53M，之前传5M的文件时没有出现过报错，在参考中找到了解决方案。解决方案在 server.R 的开头增加了一句options(shiny.maxRequestSize=60*1024^2) ，如图所示。再次上传文件后成功运行。参考“Maximum upload size exceeded” when upload csv data 中的 By default, Shiny limits file uploads t

一句话总结：代码中不能出现中文，包括注释起因：在学习「R shiny 基础」初识Shiny 一文时，跟着里面的代码复制运行后出现了 Error in func(fname, ...) : app.R did not return a shiny.appobj object. 报错信息，但是我初始创建的默认app可以正常运行，并且依稀记得过年前跑同样代码时候在自己笔电上也能正常运行。在搜索该问题时并没有发现解决方法，但是在 该文 中找到了类似的问题，那位博主遇到了俄语的编码问题。于是我在尝试将 # 注释

问题我的ui.R文件有一个这样的selectInput：selectInput("variable1", "Choose Option:", camps)camps 应该是选择的向量。该向量取决于在服务器脚本上运行的sql查询，并返回 camps 的ID：server.Rdf1 <- getCamps("date")camps <- unique(df1$idCamps)当我运行应用程序时，ui.R不知道“camps”是因为它仅在server.R文件中创建。如何将在server.

在学习「R shiny 基础」如何进行网页布局 时，打这段代码又双报错：ui <- fluidPage( titlePanel("title Panel"), sidebarLayout( sidebarPanel( tags$hgroup(h1("Side Bar"), h2("Panel")) ), mainPanel( HTML("<p>You can add content to your Shiny app by placi

遇到很长的shiny代码时候，我作为一个刚入门的新人并不知道哪段代码起到了一个什么样的作用。在查阅了众多资料后发现shiny自带的showcase mode可以帮助我们理解代码，在框中亮起的部分就是运行的代码。方法将app.R的最后一句加上options；shinyApp(ui, server, options = list(display.mode = 'showcase'))在app.R的同级文件夹中创建DESCRIPTION文件夹。① 先创建一个txt文件夹，内容为 （我咋在代码

在实际数据处理过程中，我们有时需要对数据中的元素进行修改，或删除矩阵中的某一行或某一列，甚至需要将两个矩阵进行合并。本文将介绍在R语言中如何实现对矩阵元素的修改操作。修改矩阵元素的值以下的操作都是基于这样的一个矩阵：m1 <- matrix(c(1:6), nrow=2, ncol=3, dimnames = list(c(“r1”, “r2”), c(“c1”, “c2”, “c3”)))在R语言中，主要通过以下几种形式来修改矩阵中的元素值。（1）修改单个值m1[1,2] = 12 #

网页效果修改了选项 + 拖动了范围之后代码library(shiny)ui <- fluidPage( titlePanel("censusVis"), sidebarLayout( sidebarPanel( helpText("Create demographic maps with information from the 2010 US Census."),

网页布局效果代码library(shiny)ui <- fluidPage( titlePanel("My Shiny App"), sidebarLayout( sidebarPanel( tags$hgroup( h1("Installation"), h6("Shiny is availabel on CRAN, so you can install it