Articles of r

Botão ‘Redefinir inputs’ no aplicativo shiny

Eu gostaria de implementar um botão ‘Redefinir inputs’ no meu aplicativo shiny. Aqui está um exemplo com apenas duas inputs em que estou usando as funções de atualização para definir os valores de volta para os valores padrão: library(shiny) runApp(list( ui = pageWithSidebar( headerPanel(“‘Reset inputs’ button example”), sidebarPanel( numericInput(“mynumber”, “Enter a number”, 20), textInput(“mytext”, “Enter […]

Mudando fonts no ggplot2

Uma vez, mudei minha fonte ggplot2 usando ggplot2 windowsFonts(Times=windowsFont(“TT Times New Roman”)) para alterá-la. Agora eu não posso tirar isso disso. Ao tentar definir family=”” no theme() ggplot2 theme() , não consigo gerar uma mudança nas fonts, pois eu compilo o MWE abaixo com diferentes famílias de fonts. library(ggplot2) library(extrafont) loadfonts(device = “win”) a <- […]

Escolors de similaridade baseados na comparação de strings em R (distância de edição)

Eu estou tentando atribuir pontuação de similaridade com base na comparação entre 2 seqüências de caracteres. Existe uma function para o mesmo em R. Estou ciente de tal function no SAS pelo nome de SPEDIS. Por favor, deixe-me saber se existe essa function em R.

Mantendo zeros à direita

Em R, gostaria de manter zeros à direita. Por exemplo, se eu digitar round(5.2, 3) Eu gostaria que a saída fosse 5.200. Pode me ajudar?

Em R data.table, como eu passo parâmetros variables ​​para uma expressão?

Eu estou preso com um pequeno problema R com data.table . Sua ajuda é muito apreciada. Como eu faço isso: getResult <- function(dt, expr, gby) { e <- substitute(expr) b <- substitute(gby) return(dt[,eval(e),by=b]) } v1 <- "Sepal.Length" v2 <- "Species" dt <- data.table(iris) rDT <- getResult(dt, sum(v1, na.rm=TRUE), v2) Eu recebo seguinte erro: Erro na […]

Qual é o benefício da importação em um namespace em R?

O mecanismo de espaço de nomes de R permite export funções que são visíveis para o usuário. Além disso, permite import funções de outros pacotes. Enquanto o benefício da exportação é óbvio, tenho mais problemas em entender o benefício da importação. Um benefício parece ser que se pode usar funções de outros pacotes sem append […]

Identificando dependencies de funções e scripts R

Estou analisando um pacote e scripts que utilizam o pacote e gostaria de identificar dependencies externas. O objective é modificar scripts para especificar a library(pkgName) e modificar funções no pacote para usar require(pkgName) , para que essas dependencies fiquem mais óbvias posteriormente. Estou revisando o código para contabilizar cada pacote dependente externamente. Como exemplo, embora […]

Inesperado ‘else’ no erro “else”

Eu recebo este erro: Erro: inesperado ‘else’ em “else” A partir desta declaração if, else : if (dsnt<0.05) { wilcox.test(distance[result=='nt'],distance[result=='t'],alternative=c("two.sided"),paired=TRUE) } else { if (dst<0.05) { wilcox.test(distance[result=='nt'],distance[result=='t'],alternative=c("two.sided"),paired=TRUE) } else { t.test(distance[result=='nt'],distance[result=='t'],alternative=c("two.sided"),paired=TRUE) } } O que está errado com isto?

Incluir um arquivo javascript no aplicativo Shiny

Eu preciso include uma biblioteca js no meu aplicativo Shiny. Atualmente eu uso includeHTML para include o script diretamente em códigos html. por exemplo includeHTML(‘URL.js’) O navegador mostrará “Não encontrado” quando eu tentar navegar no arquivo js se eu usar tags $ script, por exemplo http://127.0.0.1:7106/URL.js tags$script(src = ‘URL.js’) Agora eu coloquei o URL.js na […]

R de C – Helloworld mais simples possível

Qual é a function C mais simples possível para iniciar o interpretador R, passando uma pequena expressão (por exemplo, 2 + 2) e obtendo o resultado? Estou tentando compilar com o MingW no Windows.