单击关闭菜单(Close the menu on click)
我想通过点击链接或单击菜单外部来关闭我的菜单。 为了保持良好和轻松,我不想使用jQuery。
我该怎么做?
<nav class="nav"> <div class="nav__left"> <h3><a href="#home">DenisMasot</a></h3> </div> <input type="checkbox" /><label class="burger" for="nav"></label> <ul class="nav__right"> <li class="active"> <h3><a href="#home">home</a></h3> </li> <li> <h3><a href="#about">À propos</a></h3> </li> <li> <h3><a href="#production">Réalisation</a></h3> </li> <li> <h3><a href="#contact">Contact</a></h3> </li> </ul> </nav>
I want to close my menu by clicking on a link or when I click outside the menu. In the interest of keeping things nice and light, I don't want to use jQuery.
How do I do it?
<nav class="nav"> <div class="nav__left"> <h3><a href="#home">DenisMasot</a></h3> </div> <input type="checkbox" /><label class="burger" for="nav"></label> <ul class="nav__right"> <li class="active"> <h3><a href="#home">home</a></h3> </li> <li> <h3><a href="#about">À propos</a></h3> </li> <li> <h3><a href="#production">Réalisation</a></h3> </li> <li> <h3><a href="#contact">Contact</a></h3> </li> </ul> </nav>
原文:
更新时间:2022-09-01 18:09
最满意答案
url_list <- c("http://www.adobe.com/", "https://acrobat.adobe.com/us/en/?promoid=KLXMA") startServer() remDr <- remoteDriver(browserName = "chrome") remDr$open() df <- data.frame() for (i in 1:length(url_list)) { url <- url_list[i] remDr$navigate(url) Sys.sleep(15) ##A hacky way that just allows chrome to catch up res <- remDr$executeScript('return window.s_adobe.prop1;') res2 <- remDr$executeScript('return window.s_adobe.prop13;') df <- rbind(df, data.frame(URL = url, prop1 = res[[1]][1], prop2 = res2[[1]][1])) }
url_list <- c("http://www.adobe.com/", "https://acrobat.adobe.com/us/en/?promoid=KLXMA") startServer() remDr <- remoteDriver(browserName = "chrome") remDr$open() df <- data.frame() for (i in 1:length(url_list)) { url <- url_list[i] remDr$navigate(url) Sys.sleep(15) ##A hacky way that just allows chrome to catch up res <- remDr$executeScript('return window.s_adobe.prop1;') res2 <- remDr$executeScript('return window.s_adobe.prop13;') df <- rbind(df, data.frame(URL = url, prop1 = res[[1]][1], prop2 = res2[[1]][1])) }
相关问答
更多-
重塑/转换数据框 - 根据变量和多个值创建新列(Reshape/Cast data frame - create new columns based on variable and multiple values)[2023-10-18]
我们可以将'UniqueIdentifier'中的空白元素更改为'NA',使用na.locf通过使用na.locf将'NA'值转换为前4列的先前非NA元素,然后使用data.table dcast data.table (在将'data.frame'转换为'data.table'( setDT(df1) )之后),因为它可以使用多个value.var列。 df1$UniqueIdentifier[df1$UniqueIdentifier==''] <- NA library(zoo) df1[1:4] <- ... -
purrr包中的函数map_dfr完全符合您的要求。 它将函数应用于输入的每个元素(在本例中为urls ),并将结果按行绑定在一起。 library(tidyverse) map_dfr(urls, read_csv) 我使用read_csv()而不是read.csv()出于个人偏好,但两者都有效。 The function map_dfr from the purrr package does exactly what you want. It applies a function to every e ...
-
使用for循环从一个基于off的值创建多个数据帧(Create multiple data frames from one based off values with a for loop)[2022-03-01]
如果你想在一个循环中创建单独的对象,你可以使用assign 。 我使用unique因为你说你有很多关卡。 for(i in unique(df$y)) { nam <- paste("df", i, sep = ".") assign(nam, df[df$y==i,]) } > df.A x y 1 1 A 2 2 A 3 3 A 4 4 A 5 5 A 6 6 A 7 7 A 8 8 A > df.B x y 9 9 B 10 10 B ... -
我确信有更高效的解决方案,但这里有一个选择 dat <- data.frame(col1 = c(rep("red", 4), rep("blue", 3)), col2 = c(1, 3, 2, 4, 7, 8, 9)) dat col1 col2 1 red 1 2 red 3 3 red 2 4 red 4 5 blue 7 6 blue 8 7 blue 9 ust <- unstack(dat, form = col2 ~ col1 ...
-
从对象创建一个数据框(Create a data frame from object)[2022-12-26]
大熊猫的DataFrame构造函数确实接受了一系列的字典,并且可以将它们解析成一个DataFrame。 这对我有用 df = pd.DataFrame(r) 这给了我一个数据框,其中字典键作为列,它们的属性作为行。 这是你想要达到的目标吗? The pandas DataFrame constructor does accept a list of dicts and can parse them into a DataFrame. This works for me df = pd.DataFrame( ... -
如果你可以用一个二进制1和0来代替“y”和“n”,你可以尝试类似下面的方法。 如果您提供可重复的( dput )或您的数据,以便我们知道您是处理数字,字符还是因子变量,它会dput帮助。 library(data.table) dcast(melt(as.data.table(mydf), "id"), id ~ value) # Aggregate function missing, defaulting to 'length' # id 1 2 3 4 5 6 7 8 9 NA # 1 ...
-
在基础R中,设置数据: mask <- c('term1'=1,'term2'=2,'term3'=4) df <- data.frame(id = c(letters[1:3]), bitmask = c(1,4,5)) cbind(df, sapply(mask, bitwAnd, df$bitmask) > 0) # id bitmask term1 term2 term3 # 1 a 1 TRUE FALSE FALSE # 2 b 4 FALSE FALSE ...
-
使用Pandas为来自许多URL的多个CSV文件创建一个数据框(creating one data frame using Pandas for multiple CSV files from many URL's)[2022-02-14]
我认为你需要list comprehension与urls list ,其中输出是DataFrames list 。 然后使用concat连接在一起: urls = ['http://www.URL1.csv', 'http://www.URL2.csv'] dfs = [pd.read_csv(url) for url in urls] df = pd.concat(dfs, ignore_index=True) I think you need list comprehension with lis ... -
这有三个解决方案: # 1. Data set df <- data.frame( age = c(50, 30, 27, 888), insomnia = c("yes", "no", "no", 999)) # 2. Solution based on "one line of code per missing data value" df[df == 888] <- NA df[df == 999] <- NA is.na(df) # 3. Solution based on "apply ...
-
url_list <- c("http://www.adobe.com/", "https://acrobat.adobe.com/us/en/?promoid=KLXMA") startServer() remDr <- remoteDriver(browserName = "chrome") remDr$open() df <- data.frame() for (i in 1:length(url_list)) { url <- url_list[i] remDr$navigate(url) ...