rpodcast

# Darren Nantz
# Final Project Name: My House And Yard
#Class: Beginner 2
from turtle import *
from random import *
bgcolor("lightblue")
tracer(0)
color("springgreen")
begin_fill()
up()

rpodcast

## Version 2022/10/06
# make sure that your dns has a cname set for castopod and that your castopod container is not using a base url
server {
    listen 443 ssl;
    listen [::]:443 ssl;

    server_name castopod.*;

    include /config/nginx/ssl.conf;

rpodcast

# rstudio::conf 2022 talks
# https://www.rstudio.com/conference/2022/2022-conf-talks/
# potomac c
# Cracking open ggplot internals with ggtrace
https://www.rstudio.com/conference/2022/talks/cracking-open-ggplot-internals-ggtrace/
# Sometimes you just need words
https://www.rstudio.com/conference/2022/talks/sometimes-you-just-need-words/
# Digging a pit of success for your organization
https://www.rstudio.com/conference/2022/talks/leveraging-r-based-ecosystem/
# Tidy transit

rpodcast

# Module UI
  
#' @title   mod_explore_ui and mod_explore_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'

rpodcast

version: "3"
services:
  mariadb:
    image: ghcr.io/linuxserver/mariadb:latest
    container_name: hedgedoc_mariadb
    restart: always
    volumes:
      - /home/eric/docker_configs/hedgedoc/mariadb:/config
    environment:
      - MYSQL_ROOT_PASSWORD=mypass123**

rpodcast

This app requires the shiny and xml2 packages. Run the gist interactively with the following:

shiny::runGist('6c33ee09a16d55569c562f7aa3951088')

rpodcast

# Must be executed BEFORE rgl is loaded on headless devices.
options(rgl.useNULL=TRUE)

library(shiny)
library(rgl)
library(rayshader)
library(magrittr)

#Here, I load a map with the raster package.
loadzip = tempfile()

rpodcast

library(shiny)

ui <- fluidPage(
   fluidRow(
     numericInput(
       "obs_low",
       "Minimum obs",
       value = 1000,
       min = 500,
       max = 5000,

rpodcast

library(shiny)
library(rintrojs)

data(mtcars)
my_data <- mtcars

rpodcast

library(rintrojs)
library(shiny)

# Define UI for application that draws a histogram
ui <- shinyUI(fluidPage(
  introjsUI(),
  
  # Application title
  introBox(
    titlePanel("Old Faithful Geyser Data"),