lww1993的专栏

1. server端比较复杂，需要保证用户A操作组件时，用户B不受影响；2. 需要借用renderText()与reactive()实现server端调用input中的变量；

1.library(shiny)ui <- fluidPage( dataTableOutput("table"))server <- function(input, output, session) { output$table <- renderDataTable(mtcars, options = list(paging = FALSE, .

1. Input有两个重要参数: inputID与label;2. 文本输入组件: textInput(), passwordInput(), textAreaInput();3. 数值输入组件:numericInput(), sliderInput();4.日期输入组件: dateInput(), dateRangeInput();5. 有限选择组件: selectInput(), radioButtons(), checkboxGroupInput(), checkboxInpu...

library(shiny)library(ggplot2)datasets <- c("economics", "faithfuld", "seals")ui <- fluidPage( selectInput(inputId = "dataset", label = "Dataset", choices = datasets), verbatimTextOutput(outputId = "summ.

电子书地址:https://mastering-shiny.org1. shiny deployment的参考文献:https://rstudio.com/resources/rstudioconf-2019/shiny-in-production-principles-practices-and-tools/2. shiny三大件: UI, Server, Reactive programming;3. 建立空白app.R的模板方法：在app.R中输入shinyapp, 再按下sh..

https://support.rstudio.com/hc/en-us/articles/201057987-Quick-list-of-useful-R-packages获取数据:1. DBI: R与关系数据库连接的基本包；2. odbc: 利用odbc driver连接数据库；3.RMySQL, RPostgreSQL, RSQLite: R与特定数据库连接的工具；4.XLConnect, xlsx, openxlsx R与excel连接的工具；5. foreign, ha..

library(shiny)library(leaflet)library(tidyverse)library(lubridate)source("helpers.R")POI_values <- readr::read_csv("data/POI_values.csv")ui <- bootstrapPage( tags$style(type = "text/css", "html, body {width:100%;height:100%}"), ...

1. 如果是英语文档的话，有一个非常好用的包，memor, 方便添加各种图表，而且作者提供了模型；2. 如果是中文文档的话，推荐使用rticles包，里面有ctex模板，非常方便写中文pdf文档，里面可以使用Latex....

OS: macOS Catalina;R: R3.6.1RMariaDB连接MySQL会出现Error in result_fetch(res@ptr, n = n) : Error fetching buffer的问题。采用了https://github.com/r-dbi/RMariaDB/issues/135中的方法:1. brew install mysql-client;...

Open Terminal Write or paste in:defaults write org.R-project.R force.LANG en_US.UTF-8 Close Terminal (including any RStudio window) Start R来源：https://stackoverflow.com/questions/9689104/installin...

library(pool)library(tidyverse)# 建立数据库连接池pool <- dbPool( drv = RMySQL::MySQL(), dbname = "shinydemo", host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com", username...

Error : cannot allocate vector of size XGb类似于这种问题的可能处理办法：1. 可以用matrix尽量不要用data frame;2. 可以用integer matrix尽量不要用 double matrix;3. 对于大量运算后最好加上一个gc(), 强制R语言回收内存；4. 对于大矩阵而言用bigmemory包，可以将大矩阵放到临时...

tbl(db_link, "db_table_name") %>%select(a) %>%mutate(b = case_when(a == 1 ~ 2, a == 2 ~ "b")) %>%collect()以上的语句不会因为2 与 "b" 类型不一致报错。...

# 写excel文件(需要先新建这个文件)library(writexl)write_xlsx(x = iris, path = "iris.xlsx")# 读取excel文件library(readxl)my_iris &lt;- read_xlsx(path = "/Users/Documents/iris.xlsx",                    sheet = "...

在R for Data Science中，作者用了非常直观的例子解释了上面的四个概念。说明如下：我们的数据集是这样的：x &lt;- tribble(  ~key, ~val_x,  1, "x1",  2, "x2",  3, "x3")y &lt;- tribble(  ~key, ~val_y,  1, "y1",  2, "y2",  4, "y3

1. JSON文件：library(jsonlite)file &lt;- "/Users/abcd/Documents/diff_files/json/test.json"json1 &lt;- read_json(path = file)write_json(json1, path = file)2. YAML文件：library(yaml)file &lt;...

# ggplot to recognise Chinese characterslibrary(ggplot2)old &lt;-theme_light() + theme(text = element_text(family = "STXihei")) theme_set(old) # 字体名称备选# Noto Sans CJK SC# SimHei# STKa...

numeric()vector('numeric')logical()vector('logical')character()vector('character')integer()vector('integer')double()vector('double')raw()vector('raw')complex() vector('comple...

Shiny是R语言中作图形交互界面的利器。1. 基本的格式为library(shiny) # Define UI ----ui &lt;- () # Define server logic ----server &lt;- () # Run the app ----shinyApp(ui = ui, server = server) 2. 下面先说UI...

验证数字的正则表达式集验证数字：^[0-9]*$验证n位的数字：^\d{n}$验证至少n位数字：^\d{n,}$验证m-n位的数字：^\d{m,n}$验证零和非零开头的数字：^(0|[1-9][0-9]*)$验证有两位小数的正实数：^[0-9]+(.[0-9]{2})?$验证有1-3位小数的正实数：^[0-9]+(.[0-9]{1,3})?$验证非零的正整数：^\+...

options(java.parameters = "-Xmx2048m")

lapply(DBI::dbListConnections(RMySQL::MySQL()), function(db) DBI::dbSendQuery(db, statement = "SET NAMES utf8"))

1. # 读取JSON文件library(rjson)json_file &lt;-  "http://api.worldbank.org/country?per_page=10&amp;region=OED&amp;lendingtype=LNX&amp;format=json"json_data &lt;-  fromJSON(paste(readLines(json_file),...