Grasshopper_NZ's questions

Estou criando um aplicativo Shiny que tem uma aba para documentação e pretendo usar tags$iframeum site Quarto renderizado para ele.

No Quarto, é possível definir um switch para display . Isso também mostrará um botão switch para controlar o tema do site.

O aplicativo de exemplo é mostrado abaixo:

Embora ambos suportem a alternância do modo claro para o escuro, os usuários precisam clicar em diferentes interruptores duas vezes, o que não é o ideal para a melhor experiência:

Apenas a entrada Brilhante mudou para escura:

Tanto a entrada Shiny quanto a entrada Quarto mudaram para escuro:

Minha pergunta é: É possível usar um botão de entrada do Shiny para controlar o tema no aplicativo Shiny e o tema no site do Quarto?

O código do aplicativo Shiny de exemplo é:

library(shiny)
library(bslib)
library(htmltools)

ui <- page_fillable(

    input_dark_mode(id = "shiny_control", mode = "light"),

    tags$iframe(
      src = "_site/index.html",

      style = "height:86vh"
    )
)

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

}

shinyApp(ui, server)

E a estrutura completa do aplicativo está disponível no github :

├── app.R                                       <- Shiny app
├── control_quarto_theme_from_Shiny.Rproj
└── www               
    └── _site                                   <- Rendered Quarto Website files
        ├── about.html
        ├── index.html
        ├── search.json
        ├── site_libs
        │   ├── bootstrap
        │   │   ├── bootstrap-dark.min.css
        │   │   ├── bootstrap-icons.css
        │   │   ├── bootstrap-icons.woff
        │   │   ├── bootstrap.min.css
        │   │   └── bootstrap.min.js
        │   ├── clipboard
        │   │   └── clipboard.min.js
        │   ├── quarto-html
        │   │   ├── anchor.min.js
        │   │   ├── popper.min.js
        │   │   ├── quarto-syntax-highlighting-dark.css
        │   │   ├── quarto-syntax-highlighting.css
        │   │   ├── quarto.js
        │   │   ├── tippy.css
        │   │   └── tippy.umd.min.js
        │   ├── quarto-nav
        │   │   ├── headroom.min.js
        │   │   └── quarto-nav.js
        │   └── quarto-search
        │       ├── autocomplete.umd.js
        │       ├── fuse.min.js
        │       └── quarto-search.js
        └── styles.css

Estou fazendo alguns mapas dos EUA e alguns deles contêm tanto a Terra quanto o espaço sideral devido à projeção, como mostrado abaixo:

Ele é gerado pelo código abaixo:

library(ggplot2)
library(sf)


# Import Data:
df <- read_sf("https://raw.githubusercontent.com/rfortherestofus/book/refs/heads/main/data/states.geojson")

# Create the map:
ggplot() +
  geom_sf(data = df, fill = "grey90") +
  
  coord_sf(crs = "+proj=ortho +lat_0=22.0 +lon_0=-162.5") +
  
  theme_minimal() +
  
  theme(
    panel.background = element_rect(fill = "lightblue")   # <- Set the colour for ocean
  )

Gostaria de saber se é possível colorir o espaço sideral (destacado) de preto para refletir a realidade e também tornar a Terra, e portanto os EUA, mais visíveis no mapa?

Estou trabalhando com uma série de data.frameslistas, onde cada rodada adiciona um novo ano e remove o último ano, conforme mostrado na imagem abaixo:

Aqui está o código R para o exemplo mínimo reproduzível:

library(purrr)

# Define the year ranges:
(year_ranges <- map(0:2, \(increment) {(1991:1995) + increment}))


# Create data.frames:
(df_1 <- map(year_ranges, \(year_range) {
  
  map_dfc(year_range, \(col) {setNames(list(rnorm(n = 4)), as.character(col))})
  
}))

Gostaria de combiná-los em um data.framee manter apenas os dados da última rodada se houver vários registros:

Por exemplo, o ano 1992tem 2 rodadas de registros, somente o mais novo será usado (marcado em verde claro) e os mais antigos serão abandonados.

Como posso conseguir isso? Quaisquer comentários são bem-vindos.

Gostaria de manter os dados completos, incluindo quaisquer linhas e colunas vazias, ao importar. No entanto, não tenho certeza do porquê a read.xlsx()função do openxlsxpacote não consegue isso se a primeira linha é uma linha vazia.

Por exemplo, se olharmos para este .xlsxarquivo simples:

E usando este código para importar dados:

library(openxlsx)

read.xlsx(xlsxFile      = "dummy.xlsx",
          sheet         = 1,
          skipEmptyRows = FALSE,
          skipEmptyCols = FALSE,
          colNames      = FALSE)

Eu esperaria que uma linha vazia também estivesse presente em R como a primeira linha. No entanto, o resultado mostra que a primeira linha está sendo pulada, e o valor real da linha 2 agora está na primeira linha:

É um pequeno problema, mas preciso das coordenadas precisas para algumas tarefas mais tarde. Ficaria muito grato se você soubesse como consertar esse problema. Muito obrigado!